4.3.9 trig^m (a+b tan^n+c tan^(2 n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    481777,      10296]
NotebookOptionsPosition[    470952,      10016]
NotebookOutlinePosition[    472779,      10071]
CellTagsIndexPosition[    472736,      10068]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   StyleBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"Trig", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          StyleBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}],
           FontSize->16], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"]}],
    FontSize->16]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontSize->12,
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.6118029543895645`*^9, 
   3.6118029560496597`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], 
         RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924597675891*^9, 3.5739245976858907`*^9}, {
   3.573924666005986*^9, 3.5739246662359867`*^9}, {3.5739455546552343`*^9, 
   3.573945575035263*^9}, 3.5739456069553075`*^9, 3.5739471240774317`*^9, 
   3.611802860450192*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, {
   3.5739245977058907`*^9, 3.573924597715891*^9}, {3.573945557015238*^9, 
   3.573945575525264*^9}, 3.5739456075153084`*^9, 3.611802862239294*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573923938024967*^9, 3.5739239761350203`*^9}, 
   3.573924293625465*^9, {3.573924597735891*^9, 3.5739245977458906`*^9}, {
   3.5739455576252384`*^9, 3.5739455760952644`*^9}, {3.5739456079853086`*^9, 
   3.5739456179253225`*^9}, 3.6118028629993377`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}], ")"}], "2"], 
    RowBox[{"4", " ", "c"}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.573945621685328*^9, 3.573945621685328*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["4", "p"], 
       SuperscriptBox["c", "p"]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739239498049836`*^9, 3.5739239812050276`*^9}, {
   3.5739245977458906`*^9, 3.573924597765891*^9}, 3.573945576625265*^9, {
   3.5739456084453096`*^9, 3.5739456294153385`*^9}, 3.573945791105565*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
      "p_."}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, 3.573924597775891*^9, {3.5739246858160143`*^9, 
   3.573924685826014*^9}, {3.573945633785345*^9, 3.5739456433753586`*^9}, {
   3.5739458155555997`*^9, 3.5739458158356*^9}, {3.573945891725706*^9, 
   3.573945919555745*^9}, {3.573945950195788*^9, 3.5739459506257887`*^9}, 
   3.573946005465865*^9, {3.7061395512453938`*^9, 3.706139551255394*^9}, {
   3.715457123706411*^9, 3.715457137090176*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
      "p_."}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"Cot", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573924203595339*^9, 3.573924214765354*^9}, {
   3.57392471149605*^9, 3.5739247235860667`*^9}, {3.5739456522353706`*^9, 
   3.57394565865538*^9}, 3.573945819425605*^9, {3.573945901005719*^9, 
   3.573945954435794*^9}, 3.5739460073558683`*^9, {3.7061395512653937`*^9, 
   3.7061395512753935`*^9}, {3.7154571237244115`*^9, 3.715457137108177*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573921701611836*^9, 3.5739217122218513`*^9}, {
   3.5739239535049887`*^9, 3.5739239543249903`*^9}, {3.5739240246150885`*^9, 
   3.573924025165089*^9}, 3.573924294525466*^9, {3.573924597775891*^9, 
   3.5739245977858906`*^9}, {3.573945558175239*^9, 3.573945577285266*^9}, 
   3.57394560896531*^9, {3.573945666515391*^9, 3.573945666515391*^9}, 
   3.611802863552369*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}, {
   3.573921737401886*^9, 3.5739217424318933`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"F", "[", "x", "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"F", "[", "x", "]"}], "2"]}]}], ")"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], 
      RowBox[{"2", "p"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}, {3.573921841272032*^9, 
   3.573921841272032*^9}, {3.573921933662161*^9, 3.573921933662161*^9}, {
   3.5739457440654993`*^9, 3.5739457455055017`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739217345018826`*^9, 
   3.5739217345018826`*^9}, {3.573945668705394*^9, 3.573945668705394*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], 
           RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", " ", "c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
       RowBox[{"2", "p"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739218645920644`*^9, 3.573921874242078*^9}, {
   3.573921945892178*^9, 3.573921956742193*^9}, {3.573923955034991*^9, 
   3.573923957784995*^9}, {3.573924027315092*^9, 3.5739240312650976`*^9}, {
   3.573924597795891*^9, 3.5739245978258905`*^9}, {3.573945578015267*^9, 
   3.573945578825268*^9}, {3.5739456095253115`*^9, 3.573945610115312*^9}, {
   3.573945671675398*^9, 3.5739456737054005`*^9}, 3.573945795405571*^9, {
   3.573945834625626*^9, 3.5739458353256273`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
      "p_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573924597835891*^9, 
   3.5739245978558908`*^9}, {3.5739246858560143`*^9, 3.573924685866014*^9}, {
   3.5739456792654085`*^9, 3.5739456867054195`*^9}, {3.5739458462156425`*^9, 
   3.57394585186565*^9}, {3.5739459034757223`*^9, 3.5739459564357967`*^9}, 
   3.573946009585871*^9, {3.5739460936159887`*^9, 3.573946098775996*^9}, {
   3.706139551295394*^9, 3.706139551305394*^9}, {3.715457123744413*^9, 
   3.715457137129178*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
      "p_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", "*", "c", "*", 
          RowBox[{
           RowBox[{"Cot", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573924597835891*^9, 
   3.5739245978558908`*^9}, {3.5739246858560143`*^9, 3.573924685866014*^9}, {
   3.5739247389060884`*^9, 3.573924758516116*^9}, {3.573945689275423*^9, 
   3.5739456981454353`*^9}, {3.5739458546356544`*^9, 
   3.5739458562656565`*^9}, {3.5739459047157245`*^9, 3.573945958055799*^9}, 
   3.573946010865873*^9, {3.5739461022660007`*^9, 3.5739461069460077`*^9}, {
   3.706139551315394*^9, 3.7061395513253937`*^9}, {3.715457123757414*^9, 
   3.7154571371421795`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, {
   3.573924373625577*^9, 3.5739243796555853`*^9}, {3.5739245978758907`*^9, 
   3.573924597885891*^9}, {3.57394555874524*^9, 3.5739455799352694`*^9}, 
   3.573945610845313*^9, 3.611802864064399*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], 
         RowBox[{"2", "n"}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.5675372580626526`*^9, 3.567537266402664*^9}, {3.5675391495153008`*^9, 
   3.5675391659953237`*^9}, {3.567539926186388*^9, 3.5675399849664702`*^9}, {
   3.5675410836080084`*^9, 3.567541102798035*^9}, 3.5675446624460783`*^9, 
   3.5675447947176437`*^9, 3.567545747420135*^9, 3.5675457853163023`*^9, {
   3.5687562916876264`*^9, 3.568756292197627*^9}, 3.5687568002883387`*^9, {
   3.568830196482278*^9, 3.568830196482278*^9}, {3.5688302763232183`*^9, 
   3.5688302763232183`*^9}, {3.568830559775716*^9, 3.568830569884534*^9}, {
   3.568835923533137*^9, 3.5688359239855375`*^9}, 3.568851766791256*^9, {
   3.5688522136318817`*^9, 3.5688522151618834`*^9}, {3.568852249491932*^9, 
   3.5688522569019423`*^9}, {3.5688536541438985`*^9, 3.568853664083912*^9}, {
   3.569116373579444*^9, 3.569116381149454*^9}, {3.5691165114096365`*^9, 
   3.569116545799685*^9}, {3.569117017780346*^9, 3.5691170188203473`*^9}, {
   3.569117128400501*^9, 3.569117128400501*^9}, 3.5691173972908773`*^9, 
   3.5691183476022077`*^9, 3.56911842795232*^9, {3.573924382395589*^9, 
   3.5739244082656255`*^9}, {3.573924448135681*^9, 3.573924450045684*^9}, {
   3.5739245979058905`*^9, 3.5739245979158907`*^9}, {3.5739455593052406`*^9, 
   3.5739455805752707`*^9}, 3.611802864554427*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}, 3.5675391832053475`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"q", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}]]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "z"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["z", "2"]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"2", " ", "c"}], 
     RowBox[{"q", 
      RowBox[{"(", 
       RowBox[{"b", "-", "q", "+", 
        RowBox[{"2", " ", "c", " ", "z"}]}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{"2", " ", "c"}], 
     RowBox[{"q", 
      RowBox[{"(", 
       RowBox[{"b", "+", "q", "+", 
        RowBox[{"2", " ", "c", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607367216156707`*^9, 3.5607367531357145`*^9}, {3.5607961942288504`*^9, 
   3.560796244882139*^9}, {3.5607962791242*^9, 3.560796292618223*^9}, {
   3.567539221095401*^9, 3.567539221095401*^9}, 3.567539318265537*^9, {
   3.5675394229656835`*^9, 3.5675394229656835`*^9}, {3.567539531605836*^9, 
   3.567539531605836*^9}, {3.5675395898459167`*^9, 3.567539592735921*^9}, {
   3.568829157672453*^9, 3.5688291779836884`*^9}, {3.5688292084505424`*^9, 
   3.5688292742202578`*^9}, {3.568829315778731*^9, 3.568829315778731*^9}, {
   3.5688300950821*^9, 3.5688300950821*^9}, {3.5688306040641937`*^9, 
   3.5688306290242376`*^9}, {3.568908677836665*^9, 3.568908689536682*^9}, {
   3.5689092163474193`*^9, 3.568909233117443*^9}, {3.5689093150675573`*^9, 
   3.5689093287075768`*^9}, {3.56911659945976*^9, 3.5691167082499123`*^9}, {
   3.5691174109808965`*^9, 3.5691174726609826`*^9}, {3.569117502961025*^9, 
   3.569117549871091*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]],
 ", let  ",
 Cell[BoxData[
  RowBox[{"q", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}]]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, {
   3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 
   3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, {
   3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 
   3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, {
   3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 
   3.5157038673789444`*^9}, {3.5675373789228215`*^9, 
   3.5675373789228215`*^9}, {3.5675392916654997`*^9, 
   3.5675393060655193`*^9}, {3.5675396164959545`*^9, 
   3.5675396658360233`*^9}, {3.5675400329765377`*^9, 
   3.5675400375665436`*^9}, {3.568829362750413*^9, 3.568829362750413*^9}, {
   3.5688302900356417`*^9, 3.5688302900356417`*^9}, {3.568830606123397*^9, 
   3.5688306063261976`*^9}, {3.5688523274520407`*^9, 
   3.5688523274520407`*^9}, {3.5688536685739183`*^9, 
   3.5688536685739183`*^9}, {3.56911654923969*^9, 3.5691165496396904`*^9}, {
   3.5691168593201237`*^9, 3.569116870040139*^9}, {3.5691170946704535`*^9, 
   3.5691171142104807`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"2", " ", "c"}], "q"]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"b", "-", "q", "+", 
        RowBox[{"2", " ", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "c"}], "q"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"b", "+", "q", "+", 
       RowBox[{"2", " ", "c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560736531125404*^9, 3.5607366248555355`*^9}, {3.5607963589183397`*^9, 
   3.560796364362749*^9}, 3.567537205722579*^9, {3.567539747796138*^9, 
   3.5675398366662626`*^9}, 3.5688291122451735`*^9, {3.5688294004088793`*^9, 
   3.5688294310473332`*^9}, {3.568830110323326*^9, 3.568830135720171*^9}, 
   3.5688304325106926`*^9, {3.568830656511486*^9, 3.56883065883589*^9}, {
   3.5688359247655387`*^9, 3.568835926434742*^9}, {3.568908816206859*^9, 
   3.5689088316268806`*^9}, {3.568909374917641*^9, 3.5689093900576625`*^9}, {
   3.5691167852200203`*^9, 3.569116831310085*^9}, {3.569117019350348*^9, 
   3.5691170218403516`*^9}, {3.5691175870311427`*^9, 3.569117618561187*^9}, {
   3.5739244082956257`*^9, 3.5739244083356256`*^9}, {3.5739244609756994`*^9, 
   3.57392446860571*^9}, {3.5739245979158907`*^9, 3.573924597945891*^9}, 
   3.5739455814452715`*^9, {3.5739458019455805`*^9, 3.573945804015583*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", "=", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-", 
          RowBox[{"4", "*", "a", "*", "c"}]}], ",", "2"}], "]"}]}], "}"}], 
     ",", "\n", "  ", 
     RowBox[{
      RowBox[{"2", "*", 
       RowBox[{"c", "/", "q"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"b", "-", "q", "+", 
            RowBox[{"2", "*", "c", "*", 
             RowBox[{
              RowBox[{"Tan", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}]}], 
         ",", "x"}], "]"}]}], " ", "-", " ", "\n", "  ", 
      RowBox[{"2", "*", 
       RowBox[{"c", "/", "q"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"b", "+", "q", "+", 
            RowBox[{"2", "*", "c", "*", 
             RowBox[{
              RowBox[{"Tan", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}]}], 
         ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 3.573924502825758*^9}, {
   3.573924597945891*^9, 3.5739245979558907`*^9}, {3.5739246858760138`*^9, 
   3.573924685886014*^9}, {3.5739458656056695`*^9, 3.573945866845671*^9}, {
   3.573945908215729*^9, 3.573945960375802*^9}, 3.573946012935876*^9, 
   3.57401695902335*^9, {3.706139551345394*^9, 3.7061395812754354`*^9}, {
   3.7154571237664137`*^9, 3.7154571518190184`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", "=", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-", 
          RowBox[{"4", "*", "a", "*", "c"}]}], ",", "2"}], "]"}]}], "}"}], 
     ",", "\n", "  ", 
     RowBox[{
      RowBox[{"2", "*", 
       RowBox[{"c", "/", "q"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"b", "-", "q", "+", 
            RowBox[{"2", "*", "c", "*", 
             RowBox[{
              RowBox[{"Cot", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}]}], 
         ",", "x"}], "]"}]}], " ", "-", " ", "\n", "  ", 
      RowBox[{"2", "*", 
       RowBox[{"c", "/", "q"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"b", "+", "q", "+", 
            RowBox[{"2", "*", "c", "*", 
             RowBox[{
              RowBox[{"Cot", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}]}], 
         ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 
   3.5739245325557995`*^9}, {3.57392471152605*^9, 3.5739247236060667`*^9}, {
   3.573945868285673*^9, 3.573945869455675*^9}, {3.573945909975732*^9, 
   3.5739459622758045`*^9}, 3.5739460143058777`*^9, 3.5740169609833527`*^9, {
   3.706139551355394*^9, 3.7061395812854357`*^9}, {3.7154571237754145`*^9, 
   3.7154571518400197`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"f", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"f", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.5688437563787394`*^9, 
   3.5688437623687477`*^9}, {3.5688446683100166`*^9, 3.56884467066002*^9}, {
   3.568845154000696*^9, 3.5688451541906967`*^9}, 3.568846776462968*^9, {
   3.568846808573013*^9, 3.568846808573013*^9}, {3.5689233241705136`*^9, 
   3.5689233262105165`*^9}, {3.5689275290364003`*^9, 
   3.5689275290364003`*^9}, {3.5689966566091795`*^9, 3.568996664346793*^9}, {
   3.5700538390704594`*^9, 3.5700538519304776`*^9}, 3.570053889910531*^9, {
   3.5701461482700844`*^9, 3.570146150320087*^9}, {3.570146263232745*^9, 
   3.5701462643227468`*^9}, {3.573932406306823*^9, 3.5739324068568234`*^9}, 
   3.573932479766926*^9, {3.5739466841868153`*^9, 3.573946684386816*^9}, 
   3.6118028650294538`*^9, {3.6750284927754135`*^9, 3.675028508002284*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"f", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"f", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.566609655044835*^9, 3.56660965855484*^9}, {
   3.566609830405081*^9, 3.5666098313850822`*^9}, {3.5666100577053995`*^9, 
   3.5666100578653994`*^9}, {3.5675472781351185`*^9, 
   3.5675472810882225`*^9}, {3.5687566499881277`*^9, 3.568756650508129*^9}, {
   3.5688396917079134`*^9, 3.5688396945879173`*^9}, {3.568922126818837*^9, 
   3.568922127138838*^9}, {3.5689233405305367`*^9, 3.5689233407205367`*^9}, {
   3.5689968515003223`*^9, 3.5689968518591223`*^9}, {3.5689968899543896`*^9, 
   3.5689968912491918`*^9}, {3.569269033288807*^9, 3.569269041448818*^9}, 
   3.570053840900462*^9, {3.5700611660259385`*^9, 3.570061166355939*^9}, {
   3.5700613175261507`*^9, 3.57006134550619*^9}, {3.5700617520067587`*^9, 
   3.5700617525067596`*^9}, {3.57006198139708*^9, 3.5700619815870805`*^9}, {
   3.5700621446073084`*^9, 3.5700621588773284`*^9}, 3.5701462569027367`*^9, {
   3.5739324073468237`*^9, 3.5739324077468247`*^9}, 3.5739324817969284`*^9, 
   3.611802865510481*^9, 3.675028516280758*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "z", "]"}], "2"], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"Tan", "[", "z", "]"}], "2"], 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Tan", "[", "z", "]"}], "2"]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.5700615266964436`*^9, 
   3.570061544306468*^9}, {3.5700617554567633`*^9, 3.5700617886868105`*^9}, {
   3.5700621611073313`*^9, 3.570062184877365*^9}, {3.573932408526826*^9, 
   3.5739324093768272`*^9}, {3.5739329012775154`*^9, 3.5739329056575217`*^9}}],

Cell[TextData[{
 "Basis:",
 " If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["f", "e"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "m"], 
        RowBox[{"F", "[", "x", "]"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["f", "2"], "+", 
          SuperscriptBox["x", "2"]}], ")"}], 
        RowBox[{
         FractionBox["m", "2"], "+", "1"}]]], ",", "x", ",", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.568838799196664*^9, 
   3.568838799196664*^9}, {3.5688391874072075`*^9, 3.5688392265572624`*^9}, {
   3.5688392643773155`*^9, 3.5688393870974874`*^9}, {3.568999398719596*^9, 
   3.5689994240072403`*^9}, {3.568999785288275*^9, 3.568999806005111*^9}, {
   3.5700614536563416`*^9, 3.5700615023864093`*^9}, {3.570061826476863*^9, 
   3.570061855586904*^9}, {3.5700619318870106`*^9, 3.5700619318870106`*^9}, {
   3.5700621981773834`*^9, 3.570062218567412*^9}, {3.57006231673755*^9, 
   3.57006231673755*^9}, {3.5739324103168287`*^9, 3.5739324123468313`*^9}, {
   3.573932528126993*^9, 3.573932528126993*^9}, {3.675028580846451*^9, 
   3.675028580846451*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, {
   3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 
   3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, {
   3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 
   3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, {
   3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 
   3.5157038673789444`*^9}, {3.5675373789228215`*^9, 
   3.5675373789228215`*^9}, {3.5675392916654997`*^9, 
   3.5675393060655193`*^9}, {3.5675396164959545`*^9, 
   3.5675396658360233`*^9}, {3.5675400329765377`*^9, 
   3.5675400375665436`*^9}, {3.568829362750413*^9, 3.568829362750413*^9}, {
   3.5688302900356417`*^9, 3.5688302900356417`*^9}, {3.568830606123397*^9, 
   3.5688306063261976`*^9}, {3.568838916246828*^9, 3.5688389204368343`*^9}, {
   3.5688393802674775`*^9, 3.568839381057479*^9}, {3.5688447018600636`*^9, 
   3.5688447018600636`*^9}, {3.568848859655985*^9, 3.568848859655985*^9}, {
   3.5689998924760633`*^9, 3.5689998924760633`*^9}, {3.5690007142387066`*^9, 
   3.569000715003108*^9}, {3.569001079856549*^9, 3.569001079856549*^9}, {
   3.570061437136318*^9, 3.5700614453763294`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"f", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"f", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["f", "e"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["x", "m"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "n"]}], "+", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", 
              RowBox[{"2", "n"}]]}]}], ")"}], "p"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["f", "2"], "+", 
           SuperscriptBox["x", "2"]}], ")"}], 
         RowBox[{
          FractionBox["m", "2"], "+", "1"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560784998515276*^9, 3.560784999264077*^9}, {3.5607850649245925`*^9, 
   3.560785068855799*^9}, {3.560792914704321*^9, 3.5607929250859146`*^9}, 
   3.5700613867162476`*^9, 3.5700618281368656`*^9, {3.5700619504770365`*^9, 
   3.570061969137063*^9}, 3.570062165537338*^9, 3.570062308667538*^9, {
   3.573932412866832*^9, 3.5739324138068333`*^9}, {3.573932485356933*^9, 
   3.5739325298069954`*^9}, {3.675028586516775*^9, 3.6750286231988735`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "n"}]}], "+", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"f", "^", "2"}], "+", 
             RowBox[{"x", "^", "2"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", "/", "2"}], "+", "1"}], ")"}]}]}]}], ",", "x"}], 
       "]"}], ",", "x", ",", 
      RowBox[{"f", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.5700621688873425`*^9, 
   3.5700621690573425`*^9}, {3.5700622473174524`*^9, 
   3.5700622815375004`*^9}, {3.5700623310475693`*^9, 3.570062346397591*^9}, {
   3.5711020455643067`*^9, 3.571102067094337*^9}, {3.5739322898066597`*^9, 
   3.573932292736664*^9}, {3.5739323346467223`*^9, 3.5739323462367387`*^9}, {
   3.5739325947770863`*^9, 3.5739326123271112`*^9}, 3.57393264746716*^9, {
   3.5739326834072104`*^9, 3.5739327024172373`*^9}, {3.573932770597333*^9, 
   3.5739327803273463`*^9}, {3.5739328313274174`*^9, 
   3.5739328331774206`*^9}, {3.6750286371466713`*^9, 3.675028665883315*^9}, 
   3.706139551385394*^9, 3.7154571237804146`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "f"}], "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "n"}]}], "+", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"f", "^", "2"}], "+", 
             RowBox[{"x", "^", "2"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", "/", "2"}], "+", "1"}], ")"}]}]}]}], ",", "x"}], 
       "]"}], ",", "x", ",", 
      RowBox[{"f", "*", 
       RowBox[{"Cot", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.5700621688873425`*^9, 
   3.5700621690573425`*^9}, {3.5700622473174524`*^9, 
   3.5700622815375004`*^9}, {3.5700623310475693`*^9, 3.570062346397591*^9}, {
   3.5711020455643067`*^9, 3.571102067094337*^9}, {3.5739322898066597`*^9, 
   3.573932292736664*^9}, {3.5739323346467223`*^9, 3.5739323462367387`*^9}, {
   3.5739325947770863`*^9, 3.5739326123271112`*^9}, 3.57393264746716*^9, {
   3.5739326834072104`*^9, 3.5739327024172373`*^9}, {3.573932770597333*^9, 
   3.5739327803273463`*^9}, {3.5739328313274174`*^9, 
   3.5739328331774206`*^9}, {3.6750286371466713`*^9, 3.675028706724651*^9}, 
   3.7061395513953943`*^9, 3.715457123785415*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{
        FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ",
        "\[And]", " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.54941873439802*^9, 
   3.5494188085021267`*^9}, 3.549461755794977*^9, {3.5552069146868114`*^9, 
   3.5552069146868114`*^9}, {3.5673832996876364`*^9, 3.5673833093776503`*^9}, 
   3.567383424417811*^9, {3.5673836682481527`*^9, 3.5673836684981527`*^9}, 
   3.5673837448982596`*^9, {3.5673888467454023`*^9, 3.5673888473854036`*^9}, {
   3.567388960635562*^9, 3.5673889608155622`*^9}, {3.567389911916894*^9, 
   3.5673899173469014`*^9}, {3.5673909236783104`*^9, 3.567390932648323*^9}, 
   3.567391126601097*^9, {3.567729209344735*^9, 3.5677292095647354`*^9}, {
   3.5677308031369667`*^9, 3.567730811456978*^9}, {3.5677308870170836`*^9, 
   3.567730887287084*^9}, {3.5677312219375525`*^9, 3.567731222087553*^9}, {
   3.567732627899521*^9, 3.567732629329523*^9}, 3.570146254642733*^9, {
   3.5701462918627853`*^9, 3.5701462945027885`*^9}, {3.5701463383028502`*^9, 
   3.5701463436828575`*^9}, {3.5701463853329163`*^9, 3.570146442482996*^9}, {
   3.5701471618340034`*^9, 3.5701471618340034`*^9}, {3.5701480136451955`*^9, 
   3.570148013855196*^9}, 3.5701506158603244`*^9, {3.5739324150168347`*^9, 
   3.5739324155668354`*^9}, 3.5739324893269386`*^9, 3.6118028659745083`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 
   3.497816948440398*^9}, 3.497820003054675*^9, 3.4990134673955293`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", "z", "]"}], "2"], "\[Equal]", 
   FractionBox[
    RowBox[{"1", "-", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "z", "]"}], "2"]}], 
    SuperscriptBox[
     RowBox[{"Cos", "[", "z", "]"}], "2"]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, {
   3.4978200170946946`*^9, 3.497820027074709*^9}, {3.499013486817563*^9, 
   3.4990134954287786`*^9}, 3.499013543196062*^9, {3.5673840530061913`*^9, 
   3.5673840530061913`*^9}, {3.567389215115918*^9, 3.5673892312259407`*^9}, {
   3.567391473491583*^9, 3.567391541131677*^9}, {3.570146348052864*^9, 
   3.570146355952875*^9}, {3.5701464556030145`*^9, 3.570146465593028*^9}, {
   3.5701465187931027`*^9, 3.5701465187931027`*^9}, {3.5701465602231607`*^9, 
   3.5701465633831654`*^9}, {3.5701467164933796`*^9, 
   3.5701467493834257`*^9}, {3.5701506017203045`*^9, 3.5701506017203045`*^9}}],

Cell[TextData[{
 "Basis:",
 " If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "n"], "]"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "d"]}], 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["x", "2"]}], ")"}], 
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"]], 
       RowBox[{"F", "[", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["x", "2"]}], ")"}], 
          FractionBox["n", "2"]], 
         SuperscriptBox["x", "n"]], "]"}]}], ",", "x", ",", 
      RowBox[{"Cos", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Cos", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, {
   3.4978200170946946`*^9, 3.497820027074709*^9}, {3.499013486817563*^9, 
   3.4990134954287786`*^9}, 3.499013543196062*^9, {3.5673840530061913`*^9, 
   3.5673840530061913`*^9}, {3.567389215115918*^9, 3.5673892312259407`*^9}, {
   3.567391473491583*^9, 3.567391541131677*^9}, {3.570146348052864*^9, 
   3.570146355952875*^9}, {3.5701464556030145`*^9, 3.570146465593028*^9}, {
   3.5701467874934793`*^9, 3.5701468148835173`*^9}, {3.570146904493643*^9, 
   3.570146945843701*^9}, {3.5701470293838177`*^9, 3.5701470748838816`*^9}, {
   3.570147253654132*^9, 3.5701472796341677`*^9}, {3.570150627640341*^9, 
   3.5701506463903675`*^9}, {3.5701507225504737`*^9, 3.570150731940487*^9}, {
   3.573931496565549*^9, 3.573931499155553*^9}, {3.573932416546837*^9, 
   3.573932417926839*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978200878947935`*^9, 
   3.497820134594859*^9}, 3.4990139034474955`*^9, {3.5673899224769087`*^9, 
   3.567389940256933*^9}, {3.5673914471115456`*^9, 3.567391447361546*^9}, {
   3.570146361082882*^9, 3.570146361082882*^9}, {3.5701471335539637`*^9, 
   3.570147151293988*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox["1", "d"]}]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["x", "2"]}], ")"}], 
          FractionBox[
           RowBox[{"m", "-", "1"}], "2"]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             SuperscriptBox["x", 
              RowBox[{"2", "n"}]]}], "+", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "n"], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["x", "2"]}], ")"}], 
              RowBox[{"n", "/", "2"}]]}], "+", 
            RowBox[{"c", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["x", "2"]}], ")"}], "n"]}]}], ")"}], "p"]}], 
        SuperscriptBox["x", 
         RowBox[{"2", "n", " ", "p"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Cos", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 
   3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, {
   3.49781786362168*^9, 3.4978178842317085`*^9}, {3.4978200683047667`*^9, 
   3.4978200791447816`*^9}, {3.4990137351075993`*^9, 
   3.4990137374476037`*^9}, {3.499013817148144*^9, 3.4990138763034477`*^9}, {
   3.4990159735023313`*^9, 3.4990159813959455`*^9}, {3.5673914575715604`*^9, 
   3.5673914583415613`*^9}, {3.567391594431752*^9, 3.5673916041017656`*^9}, {
   3.570146365782889*^9, 3.5701463675528913`*^9}, {3.5701464225329685`*^9, 
   3.5701464768430443`*^9}, 3.5701475980246143`*^9, {3.5701506175203266`*^9, 
   3.570150623340335*^9}, {3.57015078431056*^9, 3.5701507884905663`*^9}, {
   3.5701508759206886`*^9, 3.5701509457507863`*^9}, {3.5739324184968395`*^9, 
   3.573932419396841*^9}, 3.573932492246943*^9, {3.573933093437785*^9, 
   3.573933108127805*^9}, {3.573933265538026*^9, 3.57393328297805*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "g"}], "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{"ExpandToSum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"a", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"g", "*", "x"}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{"2", "*", "n"}], ")"}]}]}], "+", 
                RowBox[{"b", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"g", "*", "x"}], ")"}], "^", "n"}], "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"g", "^", "2"}], "*", 
                    RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{"n", "/", "2"}], ")"}]}]}], "+", 
                RowBox[{"c", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"g", "^", "2"}], "*", 
                    RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "n"}]}]}], ",", 
               "x"}], "]"}], "^", "p"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"g", "*", "x"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n", "*", "p"}], ")"}]}]}]}], ",", "x"}], 
         "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.57014771667478*^9, 3.5701477870348787`*^9}, {
   3.570147828284936*^9, 3.570147978865147*^9}, {3.570150972860824*^9, 
   3.570150999270861*^9}, {3.5701511020910053`*^9, 3.5701511075810127`*^9}, {
   3.570151149331071*^9, 3.570151160021086*^9}, {3.5701512565912213`*^9, 
   3.5701512646012325`*^9}, {3.5701514342414703`*^9, 3.5701514345714703`*^9}, 
   3.5701514759115286`*^9, {3.570206696373335*^9, 3.5702067089233527`*^9}, {
   3.573932300036674*^9, 3.573932303146678*^9}, {3.573932685977214*^9, 
   3.5739326874672165`*^9}, {3.5739328406074305`*^9, 3.573932846817439*^9}, {
   3.573933335198123*^9, 3.5739333704581723`*^9}, {3.5739334168682375`*^9, 
   3.5739334170582376`*^9}, {3.5739334754183197`*^9, 3.5739335501284237`*^9}, 
   3.706139551415394*^9, 3.7154571237914157`*^9, {3.715457162432626*^9, 
   3.7154571818957386`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"g", "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{"ExpandToSum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"a", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"g", "*", "x"}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{"2", "*", "n"}], ")"}]}]}], "+", 
                RowBox[{"b", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"g", "*", "x"}], ")"}], "^", "n"}], "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"g", "^", "2"}], "*", 
                    RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{"n", "/", "2"}], ")"}]}]}], "+", 
                RowBox[{"c", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"g", "^", "2"}], "*", 
                    RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "n"}]}]}], ",", 
               "x"}], "]"}], "^", "p"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"g", "*", "x"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n", "*", "p"}], ")"}]}]}]}], ",", "x"}], 
         "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.57014771667478*^9, 3.5701477870348787`*^9}, {
   3.570147828284936*^9, 3.570147978865147*^9}, {3.570150972860824*^9, 
   3.570150999270861*^9}, {3.5701511020910053`*^9, 3.5701511075810127`*^9}, {
   3.570151149331071*^9, 3.570151160021086*^9}, {3.5701512565912213`*^9, 
   3.5701512646012325`*^9}, {3.5701514342414703`*^9, 3.5701514654115133`*^9}, 
   3.5702067180133657`*^9, {3.5739323045166802`*^9, 3.573932307586684*^9}, {
   3.573932688027217*^9, 3.5739326895572195`*^9}, {3.5739328418674326`*^9, 
   3.573932848397442*^9}, 3.573933372458175*^9, {3.573933421118243*^9, 
   3.573933436598265*^9}, 3.5739335882384777`*^9, 3.7061395514353943`*^9, 
   3.715457123796416*^9, 3.715457196903597*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], 
         RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.5688437563787394`*^9, 
   3.5688437623687477`*^9}, {3.5688446683100166`*^9, 3.56884467066002*^9}, {
   3.568845154000696*^9, 3.5688451541906967`*^9}, 3.568846776462968*^9, {
   3.568846808573013*^9, 3.568846808573013*^9}, {3.5689233241705136`*^9, 
   3.5689233262105165`*^9}, {3.5689275290364003`*^9, 
   3.5689275290364003`*^9}, {3.5689966566091795`*^9, 3.568996664346793*^9}, {
   3.5700538390704594`*^9, 3.5700538519304776`*^9}, 3.570053889910531*^9, {
   3.5701461482700844`*^9, 3.570146150320087*^9}, {3.5701462399702125`*^9, 
   3.570146240150213*^9}, {3.5701462757227626`*^9, 3.5701462765127635`*^9}, 
   3.5739340784391637`*^9, 3.573934112769212*^9, {3.5739466855368176`*^9, 
   3.5739466857268176`*^9}, 3.611802866466536*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.566609655044835*^9, 3.56660965855484*^9}, {
   3.566609830405081*^9, 3.5666098313850822`*^9}, {3.5666100577053995`*^9, 
   3.5666100578653994`*^9}, {3.5675472781351185`*^9, 
   3.5675472810882225`*^9}, {3.5687566499881277`*^9, 3.568756650508129*^9}, {
   3.5688396917079134`*^9, 3.5688396945879173`*^9}, {3.568922126818837*^9, 
   3.568922127138838*^9}, {3.5689233405305367`*^9, 3.5689233407205367`*^9}, {
   3.5689968515003223`*^9, 3.5689968518591223`*^9}, {3.5689968899543896`*^9, 
   3.5689968912491918`*^9}, {3.569269033288807*^9, 3.569269041448818*^9}, 
   3.570053840900462*^9, {3.5700611660259385`*^9, 3.570061166355939*^9}, {
   3.5700613175261507`*^9, 3.57006134550619*^9}, {3.5700617520067587`*^9, 
   3.5700617525067596`*^9}, {3.57006198139708*^9, 3.5700619815870805`*^9}, 
   3.5701462555527344`*^9, {3.5701480097851906`*^9, 3.570148009965191*^9}, 
   3.573934080399166*^9, 3.573934128199233*^9, 3.6118028669335628`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", "z", "]"}], "2"], "\[Equal]", 
   FractionBox["1", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Tan", "[", "z", "]"}], "2"]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.5700615266964436`*^9, 
   3.570061544306468*^9}, {3.5700617554567633`*^9, 3.5700617886868105`*^9}, {
   3.5739341509492655`*^9, 3.573934152869268*^9}}],

Cell[TextData[{
 "Basis:",
 " If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["f", 
      RowBox[{"m", "+", "1"}]], "e"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"F", "[", "x", "]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["f", "2"], "+", 
          SuperscriptBox["x", "2"]}], ")"}], 
        RowBox[{
         FractionBox["m", "2"], "+", "1"}]]], ",", "x", ",", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.568838799196664*^9, 
   3.568838799196664*^9}, {3.5688391874072075`*^9, 3.5688392265572624`*^9}, {
   3.5688392643773155`*^9, 3.5688393870974874`*^9}, {3.568999398719596*^9, 
   3.5689994240072403`*^9}, {3.568999785288275*^9, 3.568999806005111*^9}, {
   3.5700614536563416`*^9, 3.5700615023864093`*^9}, {3.570061826476863*^9, 
   3.570061855586904*^9}, {3.5700619318870106`*^9, 3.5700619318870106`*^9}, {
   3.570062319987554*^9, 3.570062319987554*^9}, {3.5739343831995907`*^9, 
   3.5739343831995907`*^9}, {3.5739350775305624`*^9, 
   3.5739350796805654`*^9}, {3.675028862769576*^9, 3.675028862769576*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, {
   3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 
   3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, {
   3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 
   3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, {
   3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 
   3.5157038673789444`*^9}, {3.5675373789228215`*^9, 
   3.5675373789228215`*^9}, {3.5675392916654997`*^9, 
   3.5675393060655193`*^9}, {3.5675396164959545`*^9, 
   3.5675396658360233`*^9}, {3.5675400329765377`*^9, 
   3.5675400375665436`*^9}, {3.568829362750413*^9, 3.568829362750413*^9}, {
   3.5688302900356417`*^9, 3.5688302900356417`*^9}, {3.568830606123397*^9, 
   3.5688306063261976`*^9}, {3.568838916246828*^9, 3.5688389204368343`*^9}, {
   3.5688393802674775`*^9, 3.568839381057479*^9}, {3.5688447018600636`*^9, 
   3.5688447018600636`*^9}, {3.568848859655985*^9, 3.568848859655985*^9}, {
   3.5689998924760633`*^9, 3.5689998924760633`*^9}, {3.5690007142387066`*^9, 
   3.569000715003108*^9}, {3.569001079856549*^9, 3.569001079856549*^9}, {
   3.570061437136318*^9, 3.5700614453763294`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox["f", 
       RowBox[{"m", "+", "1"}]], "e"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "n"]}], "+", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", 
             RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["f", "2"], "+", 
           SuperscriptBox["x", "2"]}], ")"}], 
         RowBox[{
          FractionBox["m", "2"], "+", "1"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560784998515276*^9, 3.560784999264077*^9}, {3.5607850649245925`*^9, 
   3.560785068855799*^9}, {3.560792914704321*^9, 3.5607929250859146`*^9}, 
   3.5700613867162476`*^9, 3.5700618281368656`*^9, {3.5700619504770365`*^9, 
   3.570061969137063*^9}, 3.5739340832191706`*^9, 3.5739341303592367`*^9, {
   3.573934245409397*^9, 3.573934249549403*^9}, 3.5739343848095922`*^9, 
   3.573935080650567*^9, {3.675028869497961*^9, 3.6750288844638166`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}], "+", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", 
              RowBox[{"(", 
               RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "^", "2"}], "+", 
            RowBox[{"x", "^", "2"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m", "/", "2"}], "+", "1"}], ")"}]}]}], ",", "x"}], "]"}],
       ",", "x", ",", 
      RowBox[{"f", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.5701481094053297`*^9, 3.570148140705374*^9}, {
   3.5739342709594336`*^9, 3.573934293039464*^9}, 3.573934348759542*^9, {
   3.573934387309596*^9, 3.57393441898964*^9}, {3.573934481409728*^9, 
   3.5739345087497663`*^9}, {3.5739346042099*^9, 3.5739346260099306`*^9}, {
   3.5739347752201395`*^9, 3.573934782110149*^9}, {3.5739348225102053`*^9, 
   3.573934822980206*^9}, {3.675028901359783*^9, 3.6750289459363327`*^9}, 
   3.706139551455394*^9, 3.715457123801416*^9, {3.7154572041530123`*^9, 
   3.715457207282191*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"f", "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]}], "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}], "+", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", 
              RowBox[{"(", 
               RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "^", "2"}], "+", 
            RowBox[{"x", "^", "2"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m", "/", "2"}], "+", "1"}], ")"}]}]}], ",", "x"}], "]"}],
       ",", "x", ",", 
      RowBox[{"f", "*", 
       RowBox[{"Cot", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.5701481094053297`*^9, 3.570148140705374*^9}, {
   3.5739342709594336`*^9, 3.573934293039464*^9}, 3.573934348759542*^9, {
   3.573934387309596*^9, 3.57393441898964*^9}, {3.573934481409728*^9, 
   3.5739345087497663`*^9}, {3.5739346042099*^9, 3.5739346260099306`*^9}, {
   3.5739347752201395`*^9, 3.573934782110149*^9}, {3.5739348225102053`*^9, 
   3.573934822980206*^9}, {3.675028901359783*^9, 3.6750289808153276`*^9}, 
   3.706139551465394*^9, 3.7154571238064165`*^9, 3.7154572122114725`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{
        FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ",
        "\[And]", " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.54941873439802*^9, 
   3.5494188085021267`*^9}, 3.549461755794977*^9, {3.5552069146868114`*^9, 
   3.5552069146868114`*^9}, {3.5673832996876364`*^9, 3.5673833093776503`*^9}, 
   3.567383424417811*^9, {3.5673836682481527`*^9, 3.5673836684981527`*^9}, 
   3.5673837448982596`*^9, {3.5673888467454023`*^9, 3.5673888473854036`*^9}, {
   3.567388960635562*^9, 3.5673889608155622`*^9}, {3.567389911916894*^9, 
   3.5673899173469014`*^9}, {3.5673909236783104`*^9, 3.567390932648323*^9}, 
   3.567391126601097*^9, {3.567729209344735*^9, 3.5677292095647354`*^9}, {
   3.5677308031369667`*^9, 3.567730811456978*^9}, {3.5677308870170836`*^9, 
   3.567730887287084*^9}, {3.5677312219375525`*^9, 3.567731222087553*^9}, {
   3.567732627899521*^9, 3.567732629329523*^9}, 3.570146254642733*^9, {
   3.5701462918627853`*^9, 3.5701462945027885`*^9}, {3.5701463383028502`*^9, 
   3.5701463436828575`*^9}, {3.5701463853329163`*^9, 3.570146442482996*^9}, {
   3.5701471618340034`*^9, 3.5701471618340034`*^9}, {3.5701480136451955`*^9, 
   3.570148013855196*^9}, 3.573934087829177*^9, 3.5739341348592424`*^9, 
   3.611802867424591*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 
   3.497816948440398*^9}, 3.497820003054675*^9, 3.4990134673955293`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", "z", "]"}], "2"], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"Sin", "[", "z", "]"}], "2"], 
    RowBox[{"1", "-", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "z", "]"}], "2"]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, {
   3.4978200170946946`*^9, 3.497820027074709*^9}, {3.499013486817563*^9, 
   3.4990134954287786`*^9}, 3.499013543196062*^9, {3.5673840530061913`*^9, 
   3.5673840530061913`*^9}, {3.567389215115918*^9, 3.5673892312259407`*^9}, {
   3.567391473491583*^9, 3.567391541131677*^9}, {3.570146348052864*^9, 
   3.570146355952875*^9}, {3.5701464556030145`*^9, 3.570146465593028*^9}, {
   3.5701465187931027`*^9, 3.5701465187931027`*^9}, {3.5701465602231607`*^9, 
   3.5701465633831654`*^9}, {3.5701467164933796`*^9, 3.5701467493834257`*^9}}],

Cell[TextData[{
 "Basis:",
 " If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "n"], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "e"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["x", "2"]}], ")"}], 
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"]], 
       RowBox[{"F", "[", 
        FractionBox[
         SuperscriptBox["x", "n"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["x", "2"]}], ")"}], 
          FractionBox["n", "2"]]], "]"}]}], ",", "x", ",", 
      RowBox[{"Sin", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Sin", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, {
   3.4978200170946946`*^9, 3.497820027074709*^9}, {3.499013486817563*^9, 
   3.4990134954287786`*^9}, 3.499013543196062*^9, {3.5673840530061913`*^9, 
   3.5673840530061913`*^9}, {3.567389215115918*^9, 3.5673892312259407`*^9}, {
   3.567391473491583*^9, 3.567391541131677*^9}, {3.570146348052864*^9, 
   3.570146355952875*^9}, {3.5701464556030145`*^9, 3.570146465593028*^9}, {
   3.5701467874934793`*^9, 3.5701468148835173`*^9}, {3.570146904493643*^9, 
   3.570146945843701*^9}, {3.5701470293838177`*^9, 3.5701470748838816`*^9}, {
   3.570147253654132*^9, 3.5701472796341677`*^9}, {3.5739315116755705`*^9, 
   3.5739315125955715`*^9}, {3.5739350827105694`*^9, 3.573935089500579*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978200878947935`*^9, 
   3.497820134594859*^9}, 3.4990139034474955`*^9, {3.5673899224769087`*^9, 
   3.567389940256933*^9}, {3.5673914471115456`*^9, 3.567391447361546*^9}, {
   3.570146361082882*^9, 3.570146361082882*^9}, {3.5701471335539637`*^9, 
   3.570147151293988*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "e"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["x", "2"]}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "-", 
           RowBox[{"2", "n", " ", "p"}], "-", "1"}], ")"}], "/", "2"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c", " ", 
           SuperscriptBox["x", 
            RowBox[{"2", " ", "n"}]]}], "+", 
          RowBox[{"b", " ", 
           SuperscriptBox["x", "n"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox["x", "2"]}], ")"}], 
            RowBox[{"n", "/", "2"}]]}], "+", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox["x", "2"]}], ")"}], "n"]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Sin", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 
   3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, {
   3.49781786362168*^9, 3.4978178842317085`*^9}, {3.4978200683047667`*^9, 
   3.4978200791447816`*^9}, {3.4990137351075993`*^9, 
   3.4990137374476037`*^9}, {3.499013817148144*^9, 3.4990138763034477`*^9}, {
   3.4990159735023313`*^9, 3.4990159813959455`*^9}, {3.5673914575715604`*^9, 
   3.5673914583415613`*^9}, {3.567391594431752*^9, 3.5673916041017656`*^9}, {
   3.570146365782889*^9, 3.5701463675528913`*^9}, {3.5701464225329685`*^9, 
   3.5701464768430443`*^9}, 3.5701475980246143`*^9, 3.5739340940791855`*^9, 
   3.573934137429246*^9, {3.573934395959608*^9, 3.5739343997596135`*^9}, 
   3.5739349745004177`*^9, 3.573935044570516*^9, 3.5739350849305725`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"g", "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "-", 
                RowBox[{"2", "*", "n", "*", "p"}], "-", "1"}], ")"}], "/", 
              "2"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"ExpandToSum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"c", "*", 
                RowBox[{"x", "^", 
                 RowBox[{"(", 
                  RowBox[{"2", "*", "n"}], ")"}]}]}], "+", 
               RowBox[{"b", "*", 
                RowBox[{"x", "^", "n"}], "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   RowBox[{"x", "^", "2"}]}], ")"}], "^", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "2"}], ")"}]}]}], "+", 
               RowBox[{"a", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   RowBox[{"x", "^", "2"}]}], ")"}], "^", "n"}]}]}], ",", 
              "x"}], "]"}], "^", "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.57014771667478*^9, 3.5701477870348787`*^9}, {
   3.570147828284936*^9, 3.570147978865147*^9}, {3.570151180641115*^9, 
   3.5701511918611307`*^9}, {3.570206736913392*^9, 3.570206748283408*^9}, {
   3.573934353789549*^9, 3.573934367359568*^9}, {3.5739344018796167`*^9, 
   3.573934433619661*^9}, {3.573934484389732*^9, 3.573934510289768*^9}, {
   3.573934646539959*^9, 3.5739346481899614`*^9}, {3.5739346924400234`*^9, 
   3.5739346951500273`*^9}, {3.5739348321702185`*^9, 
   3.5739348323402195`*^9}, {3.573935160210678*^9, 3.573935160800679*^9}, 
   3.5739351988807325`*^9, 3.706139551495394*^9, 3.715457123812417*^9, {
   3.715457232179615*^9, 3.7154572438762836`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "g"}], "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "-", 
                RowBox[{"2", "*", "n", "*", "p"}], "-", "1"}], ")"}], "/", 
              "2"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"ExpandToSum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"c", "*", 
                RowBox[{"x", "^", 
                 RowBox[{"(", 
                  RowBox[{"2", "*", "n"}], ")"}]}]}], "+", 
               RowBox[{"b", "*", 
                RowBox[{"x", "^", "n"}], "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   RowBox[{"x", "^", "2"}]}], ")"}], "^", 
                 RowBox[{"(", 
                  RowBox[{"n", "/", "2"}], ")"}]}]}], "+", 
               RowBox[{"a", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   RowBox[{"x", "^", "2"}]}], ")"}], "^", "n"}]}]}], ",", 
              "x"}], "]"}], "^", "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5700525780786943`*^9, 
   3.5700526225387564`*^9}, {3.57005266067881*^9, 3.5700526668588185`*^9}, {
   3.570052728808905*^9, 3.570052745628929*^9}, {3.5700527947789974`*^9, 
   3.570052795138998*^9}, {3.5700620016271086`*^9, 3.570062001897109*^9}, {
   3.5700620346571546`*^9, 3.5700620428971663`*^9}, {3.570062262727474*^9, 
   3.5700622750974913`*^9}, {3.57014771667478*^9, 3.5701477870348787`*^9}, {
   3.570147828284936*^9, 3.570147978865147*^9}, {3.5701482370155087`*^9, 
   3.570148261185542*^9}, {3.5701511977011385`*^9, 3.5701512085311537`*^9}, 
   3.570206757653421*^9, {3.5739343558295517`*^9, 3.573934373649577*^9}, 
   3.573934403849619*^9, {3.573934434779662*^9, 3.5739344375996666`*^9}, {
   3.5739344857197337`*^9, 3.573934511059769*^9}, {3.5739347009600353`*^9, 
   3.5739347036500387`*^9}, {3.573934835370223*^9, 3.5739348356702237`*^9}, {
   3.5739351639506836`*^9, 3.573935164600684*^9}, 3.573935201320736*^9, 
   3.706139551505394*^9, 3.715457123817417*^9, {3.7154572322016163`*^9, 
   3.7154572438972855`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], 
         RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, 
   3.573941120709027*^9, 3.5739412010291395`*^9, 3.573942224790572*^9, {
   3.5739467953769712`*^9, 3.573946795396971*^9}, {3.573946860937063*^9, 
   3.57394686589707*^9}, 3.611802867906618*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, 
   3.573941120709027*^9, 3.5739412010291395`*^9, 3.573942224790572*^9, {
   3.5739467953769712`*^9, 3.573946795396971*^9}, 3.611802868436649*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573923938024967*^9, 3.5739239761350203`*^9}, 
   3.573924293625465*^9, 3.573941121689028*^9, 3.5739412032591424`*^9, {
   3.5739412593692207`*^9, 3.573941267329232*^9}, 3.5739422259005737`*^9, {
   3.5739467954269714`*^9, 3.573946795436971*^9}, 3.6118028689166765`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}], ")"}], "2"], 
    RowBox[{"4", " ", "c"}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739412727192397`*^9, 3.5739412727192397`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["4", "p"], 
       SuperscriptBox["c", "p"]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739239498049836`*^9, 3.5739239812050276`*^9}, 
   3.5739412060391464`*^9, {3.573941284909257*^9, 3.5739412885992618`*^9}, {
   3.573941441429476*^9, 3.5739414420394764`*^9}, {3.573942227590576*^9, 
   3.573942239530593*^9}, {3.573946795446971*^9, 3.5739467954769716`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573941294979271*^9, 3.5739413048992844`*^9}, {
   3.5739414585694995`*^9, 3.573941499779557*^9}, 3.5739415650596485`*^9, {
   3.5739416991398363`*^9, 3.573941699379837*^9}, 3.5739422613606234`*^9, {
   3.5739426841512156`*^9, 3.5739426867312193`*^9}, {3.57394275149131*^9, 
   3.5739427525513115`*^9}, {3.5739467954769716`*^9, 
   3.5739467954869714`*^9}, {3.5739468290270185`*^9, 3.573946829047018*^9}, 
   3.574407000590027*^9, {3.7061395515253944`*^9, 3.706139551535394*^9}, {
   3.7154571238224173`*^9, 3.7154571371521797`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Cot", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573924203595339*^9, 3.573924214765354*^9}, {
   3.57394130873929*^9, 3.5739413160593004`*^9}, {3.5739415012395597`*^9, 
   3.5739415189495845`*^9}, {3.5739415746396623`*^9, 
   3.5739415806496706`*^9}, {3.57394170175984*^9, 3.573941702189841*^9}, {
   3.573942263060626*^9, 3.573942265490629*^9}, {3.5739426918712263`*^9, 
   3.5739426969812336`*^9}, {3.5739427553513155`*^9, 
   3.5739427555913153`*^9}, {3.573946813706997*^9, 3.5739468369170294`*^9}, 
   3.57440700315003*^9, {3.706139551545394*^9, 3.706139551555394*^9}, {
   3.7154571238274174`*^9, 3.7154571371611805`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573921701611836*^9, 3.5739217122218513`*^9}, {
   3.5739239535049887`*^9, 3.5739239543249903`*^9}, {3.5739240246150885`*^9, 
   3.573924025165089*^9}, 3.573924294525466*^9, 3.5739411268290353`*^9, 
   3.57394120890915*^9, {3.5739413326593237`*^9, 3.5739413326593237`*^9}, 
   3.5739422298105793`*^9, {3.573946795496971*^9, 3.5739467955169716`*^9}, 
   3.611802869399704*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}, {
   3.573921737401886*^9, 3.5739217424318933`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"F", "[", "x", "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"F", "[", "x", "]"}], "2"]}]}], ")"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], 
      RowBox[{"2", "p"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}, {3.573921841272032*^9, 
   3.573921841272032*^9}, {3.573921933662161*^9, 3.573921933662161*^9}, {
   3.573941341679336*^9, 3.5739413425893373`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739217345018826`*^9, 
   3.5739217345018826`*^9}, {3.573941343529339*^9, 3.573941343529339*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], 
           RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", " ", "c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
       RowBox[{"2", "p"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739218645920644`*^9, 3.573921874242078*^9}, {
   3.573921945892178*^9, 3.573921956742193*^9}, {3.573923955034991*^9, 
   3.573923957784995*^9}, {3.573924027315092*^9, 3.5739240312650976`*^9}, {
   3.5739412110991535`*^9, 3.573941213709157*^9}, {3.5739413541693535`*^9, 
   3.5739413579693584`*^9}, {3.57394178744996*^9, 3.573941793599969*^9}, {
   3.5739422313605814`*^9, 3.5739422434505987`*^9}, {3.5739467955169716`*^9, 
   3.573946795566972*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573941367869373*^9, 
   3.573941389659403*^9}, {3.5739415041895638`*^9, 3.57394151559958*^9}, 
   3.57394158725968*^9, {3.573941748179905*^9, 3.5739417484399056`*^9}, {
   3.573941819600005*^9, 3.573941831080021*^9}, 3.5739422683106337`*^9, {
   3.5739427270712757`*^9, 3.573942747441304*^9}, {3.5739467955769715`*^9, 
   3.5739467956069717`*^9}, {3.5739468290570183`*^9, 
   3.5739468290670185`*^9}, {3.7061395515753946`*^9, 
   3.7061395515853944`*^9}, {3.715457123833418*^9, 3.715457137169181*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Cot", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573924786546155*^9, 
   3.5739248039061794`*^9}, {3.5739413927594075`*^9, 
   3.5739414044694242`*^9}, {3.573941506249566*^9, 3.5739415124495754`*^9}, {
   3.5739416016696997`*^9, 3.573941612079715*^9}, {3.57394175170991*^9, 
   3.5739417519799104`*^9}, {3.5739418358600283`*^9, 
   3.5739418484500456`*^9}, {3.573942269910636*^9, 3.5739422717406383`*^9}, {
   3.5739427336612844`*^9, 3.5739427446113005`*^9}, {3.573946813726997*^9, 
   3.5739468369370294`*^9}, {3.706139551595394*^9, 3.7061395516053944`*^9}, {
   3.715457123838418*^9, 3.715457137178181*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"f", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"f", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.566609655044835*^9, 3.56660965855484*^9}, {
   3.566609830405081*^9, 3.5666098313850822`*^9}, {3.5666100577053995`*^9, 
   3.5666100578653994`*^9}, {3.5675472781351185`*^9, 
   3.5675472810882225`*^9}, {3.5687566499881277`*^9, 3.568756650508129*^9}, {
   3.5688396917079134`*^9, 3.5688396945879173`*^9}, {3.568922126818837*^9, 
   3.568922127138838*^9}, {3.5689233405305367`*^9, 3.5689233407205367`*^9}, {
   3.5689968515003223`*^9, 3.5689968518591223`*^9}, {3.5689968899543896`*^9, 
   3.5689968912491918`*^9}, {3.5692688028484845`*^9, 
   3.5692688285985203`*^9}, {3.569269044668823*^9, 3.569269045998825*^9}, {
   3.5692692349690895`*^9, 3.5692692351990895`*^9}, {3.571369950381503*^9, 
   3.571369950631503*^9}, {3.5739300517235265`*^9, 3.5739300519435263`*^9}, {
   3.573930297953871*^9, 3.573930300673875*^9}, {3.5739339034589186`*^9, 
   3.5739339039489193`*^9}, {3.5739466870268197`*^9, 3.57394668723682*^9}, {
   3.573946872427079*^9, 3.5739468897871037`*^9}, 3.611802869888732*^9, 
   3.6750292569082146`*^9, 3.6750293473652263`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
    RowBox[{"F", "[", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["f", "e"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["x", "f"], ")"}], "m"], " ", 
       FractionBox[
        RowBox[{"F", "[", "x", "]"}], 
        RowBox[{
         SuperscriptBox["f", "2"], "+", 
         SuperscriptBox["x", "2"]}]]}], ",", "x", ",", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"f", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.569269080768873*^9, 
   3.569269091948889*^9}, {3.675029170238162*^9, 3.675029170238162*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739412727192397`*^9, 
   3.5739412727192397`*^9}, {3.5739561856333265`*^9, 
   3.5739561856333265`*^9}, {3.675029186147072*^9, 3.675029186147072*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"f", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"f", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["f", "e"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["x", "f"], ")"}], "m"], " ", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "n"]}], "+", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", 
             RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
        RowBox[{
         SuperscriptBox["f", "2"], "+", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"f", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560784998515276*^9, 3.560784999264077*^9}, {3.5607850649245925`*^9, 
   3.560785068855799*^9}, {3.560792914704321*^9, 3.5607929250859146`*^9}, {
   3.569268854118556*^9, 3.5692688731085825`*^9}, 3.569269076128867*^9, {
   3.5692691061489086`*^9, 3.5692691080989113`*^9}, {3.6750291969466896`*^9, 
   3.6750292278704586`*^9}, 3.675029260438024*^9, 3.6750293454928217`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "/", "f"}], ")"}], "^", "m"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "n"}]}], "+", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "^", "2"}], "+", 
            RowBox[{"x", "^", "2"}]}], ")"}]}]}], ",", "x"}], "]"}], ",", "x",
       ",", 
      RowBox[{"f", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m", ",", 
        "n", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5692688888286047`*^9, 
   3.569268957468701*^9}, {3.5692691231989326`*^9, 3.5692691306689434`*^9}, 
   3.569269627899639*^9, {3.5692705899035397`*^9, 3.569270596463549*^9}, {
   3.570052897509142*^9, 3.57005305362936*^9}, 3.5739345280197935`*^9, {
   3.5739470285472975`*^9, 3.5739470357673078`*^9}, 3.573956348716013*^9, 
   3.5744069824400015`*^9, {3.6750292777358594`*^9, 3.675029303436911*^9}, {
   3.675052206054434*^9, 3.6750522062634454`*^9}, {3.706139551635394*^9, 
   3.706139581405436*^9}, {3.715457123843418*^9, 3.715457151856021*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], 
        "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"f_.", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d_.", "+", 
              RowBox[{"e_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n2_."}]}]}],
        ")"}], "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "f"}], "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "/", "f"}], ")"}], "^", "m"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"x", "^", "n"}]}], "+", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "^", "2"}], "+", 
            RowBox[{"x", "^", "2"}]}], ")"}]}]}], ",", "x"}], "]"}], ",", "x",
       ",", 
      RowBox[{"f", "*", 
       RowBox[{"Cot", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m", ",", 
        "n", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5692688888286047`*^9, 
   3.569268957468701*^9}, {3.5692691231989326`*^9, 3.5692691306689434`*^9}, 
   3.569269627899639*^9, {3.5692705899035397`*^9, 3.569270596463549*^9}, {
   3.570052897509142*^9, 3.57005305362936*^9}, 3.5739345280197935`*^9, {
   3.5739470285472975`*^9, 3.5739470357673078`*^9}, 3.573956348716013*^9, 
   3.5744069824400015`*^9, {3.6750292777358594`*^9, 3.6750293213411474`*^9}, 
   3.675097805858615*^9, {3.7061395516453943`*^9, 3.706139581425436*^9}, {
   3.7154571238484187`*^9, 3.715457151865021*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cot", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], 
         RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, 
   3.573941120709027*^9, 3.5739412010291395`*^9, 3.573942224790572*^9, {
   3.5739467953769712`*^9, 3.573946795396971*^9}, {3.573946860937063*^9, 
   3.57394686589707*^9}, {3.573956738888298*^9, 3.5739567435215063`*^9}, 
   3.611802870365759*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, 
   3.573941120709027*^9, 3.5739412010291395`*^9, 3.573942224790572*^9, {
   3.5739467953769712`*^9, 3.573946795396971*^9}, 3.573956622730494*^9, 
   3.6118028708467865`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573923938024967*^9, 3.5739239761350203`*^9}, 
   3.573924293625465*^9, 3.573941121689028*^9, 3.5739412032591424`*^9, {
   3.5739412593692207`*^9, 3.573941267329232*^9}, 3.5739422259005737`*^9, {
   3.5739467954269714`*^9, 3.573946795436971*^9}, 3.5739566227460938`*^9, 
   3.611802871365816*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}], ")"}], "2"], 
    RowBox[{"4", " ", "c"}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739412727192397`*^9, 3.5739412727192397`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cot", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["4", "p"], 
       SuperscriptBox["c", "p"]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739239498049836`*^9, 3.5739239812050276`*^9}, 
   3.5739412060391464`*^9, {3.573941284909257*^9, 3.5739412885992618`*^9}, {
   3.573941441429476*^9, 3.5739414420394764`*^9}, {3.573942227590576*^9, 
   3.573942239530593*^9}, {3.573946795446971*^9, 3.5739467954769716`*^9}, {
   3.573956622761694*^9, 3.573956622777294*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573941294979271*^9, 3.5739413048992844`*^9}, {
   3.5739414585694995`*^9, 3.573941499779557*^9}, 3.5739415650596485`*^9, {
   3.5739416991398363`*^9, 3.573941699379837*^9}, 3.5739422613606234`*^9, {
   3.5739426841512156`*^9, 3.5739426867312193`*^9}, {3.57394275149131*^9, 
   3.5739427525513115`*^9}, {3.5739467954769716`*^9, 
   3.5739467954869714`*^9}, {3.5739468290270185`*^9, 3.573946829047018*^9}, {
   3.5739566461617355`*^9, 3.5739566509353437`*^9}, {3.7061395516653943`*^9, 
   3.706139551675394*^9}, {3.7154571238534193`*^9, 3.7154571371871815`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "p"}], "*", 
       RowBox[{"c", "^", "p"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Cot", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573924203595339*^9, 3.573924214765354*^9}, {
   3.57394130873929*^9, 3.5739413160593004`*^9}, {3.5739415012395597`*^9, 
   3.5739415189495845`*^9}, {3.5739415746396623`*^9, 
   3.5739415806496706`*^9}, {3.57394170175984*^9, 3.573941702189841*^9}, {
   3.573942263060626*^9, 3.573942265490629*^9}, {3.5739426918712263`*^9, 
   3.5739426969812336`*^9}, {3.5739427553513155`*^9, 
   3.5739427555913153`*^9}, {3.573946813706997*^9, 3.5739468369170294`*^9}, {
   3.573956653665348*^9, 3.573956656660554*^9}, {3.7061395516853943`*^9, 
   3.7061395516953945`*^9}, {3.7154571238584194`*^9, 3.715457137195182*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573921701611836*^9, 3.5739217122218513`*^9}, {
   3.5739239535049887`*^9, 3.5739239543249903`*^9}, {3.5739240246150885`*^9, 
   3.573924025165089*^9}, 3.573924294525466*^9, 3.5739411268290353`*^9, 
   3.57394120890915*^9, {3.5739413326593237`*^9, 3.5739413326593237`*^9}, 
   3.5739422298105793`*^9, {3.573946795496971*^9, 3.5739467955169716`*^9}, 
   3.573956622792894*^9, 3.611802871806842*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}, {
   3.573921737401886*^9, 3.5739217424318933`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"F", "[", "x", "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"F", "[", "x", "]"}], "2"]}]}], ")"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], 
      RowBox[{"2", "p"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}, {3.573921841272032*^9, 
   3.573921841272032*^9}, {3.573921933662161*^9, 3.573921933662161*^9}, {
   3.573941341679336*^9, 3.5739413425893373`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739217345018826`*^9, 
   3.5739217345018826`*^9}, {3.573941343529339*^9, 3.573941343529339*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cot", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], 
           RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", " ", "c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
       RowBox[{"2", "p"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}], 
      RowBox[{"2", "p"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739218645920644`*^9, 3.573921874242078*^9}, {
   3.573921945892178*^9, 3.573921956742193*^9}, {3.573923955034991*^9, 
   3.573923957784995*^9}, {3.573924027315092*^9, 3.5739240312650976`*^9}, {
   3.5739412110991535`*^9, 3.573941213709157*^9}, {3.5739413541693535`*^9, 
   3.5739413579693584`*^9}, {3.57394178744996*^9, 3.573941793599969*^9}, {
   3.5739422313605814`*^9, 3.5739422434505987`*^9}, {3.5739467955169716`*^9, 
   3.573946795566972*^9}, {3.5739566228240943`*^9, 3.5739566228240943`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573941367869373*^9, 
   3.573941389659403*^9}, {3.5739415041895638`*^9, 3.57394151559958*^9}, 
   3.57394158725968*^9, {3.573941748179905*^9, 3.5739417484399056`*^9}, {
   3.573941819600005*^9, 3.573941831080021*^9}, 3.5739422683106337`*^9, {
   3.5739427270712757`*^9, 3.573942747441304*^9}, {3.5739467955769715`*^9, 
   3.5739467956069717`*^9}, {3.5739468290570183`*^9, 
   3.5739468290670185`*^9}, {3.5739566835862007`*^9, 
   3.5739566877358084`*^9}, {3.7061395517153945`*^9, 
   3.7061395517253942`*^9}, {3.7154571238634195`*^9, 3.7154571372041826`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], 
      "^", "p_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "p"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], "]"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{
            RowBox[{"Cot", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "p"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
        "p"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573924786546155*^9, 
   3.5739248039061794`*^9}, {3.5739413927594075`*^9, 
   3.5739414044694242`*^9}, {3.573941506249566*^9, 3.5739415124495754`*^9}, {
   3.5739416016696997`*^9, 3.573941612079715*^9}, {3.57394175170991*^9, 
   3.5739417519799104`*^9}, {3.5739418358600283`*^9, 
   3.5739418484500456`*^9}, {3.573942269910636*^9, 3.5739422717406383`*^9}, {
   3.5739427336612844`*^9, 3.5739427446113005`*^9}, {3.573946813726997*^9, 
   3.5739468369370294`*^9}, {3.573956693227018*^9, 3.573956696425023*^9}, {
   3.7061395517353945`*^9, 3.7061395517453947`*^9}, {3.71545712386942*^9, 
   3.7154571372131834`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], 
          RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{
        FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]],
       "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.566609655044835*^9, 3.56660965855484*^9}, {
   3.566609830405081*^9, 3.5666098313850822`*^9}, {3.5666100577053995`*^9, 
   3.5666100578653994`*^9}, {3.5675472781351185`*^9, 
   3.5675472810882225`*^9}, {3.5687566499881277`*^9, 3.568756650508129*^9}, {
   3.5688396917079134`*^9, 3.5688396945879173`*^9}, {3.568922126818837*^9, 
   3.568922127138838*^9}, {3.5689233405305367`*^9, 3.5689233407205367`*^9}, {
   3.5689968515003223`*^9, 3.5689968518591223`*^9}, {3.5689968899543896`*^9, 
   3.5689968912491918`*^9}, {3.5692688028484845`*^9, 
   3.5692688285985203`*^9}, {3.569269044668823*^9, 3.569269045998825*^9}, {
   3.5692692349690895`*^9, 3.5692692351990895`*^9}, {3.571369950381503*^9, 
   3.571369950631503*^9}, {3.5739300517235265`*^9, 3.5739300519435263`*^9}, {
   3.573930297953871*^9, 3.573930300673875*^9}, {3.5739339034589186`*^9, 
   3.5739339039489193`*^9}, {3.5739466870268197`*^9, 3.57394668723682*^9}, {
   3.573946872427079*^9, 3.5739468897871037`*^9}, {3.573956113186799*^9, 
   3.5739561516564665`*^9}, 3.6118028726148877`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", "z", "]"}], "2"], "\[Equal]", 
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"Cot", "[", "z", "]"}], "2"]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.569269080768873*^9, 
   3.569269091948889*^9}, {3.5739556812638407`*^9, 3.573955770932798*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cot", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}], "2"], "]"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "e"]}], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "m"], 
        RowBox[{"F", "[", 
         FractionBox["1", 
          SuperscriptBox["x", "2"]], "]"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["x", "2"]}]], ",", "x", ",", 
      RowBox[{"Cot", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Cot", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.569269080768873*^9, 
   3.569269091948889*^9}, {3.5739556812638407`*^9, 3.573955715708701*^9}, {
   3.573955815455276*^9, 3.573955840087719*^9}, {3.5739558869034014`*^9, 
   3.5739558869034014`*^9}, {3.5739559889013805`*^9, 3.5739559889013805`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739412727192397`*^9, 
   3.5739412727192397`*^9}, {3.5739561856333265`*^9, 3.5739562108897705`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cot", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], 
        RowBox[{"2", "n"}]]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox["1", "e"]}]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["x", 
          RowBox[{"m", "-", 
           RowBox[{"2", "n", " ", "p"}]}]], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "n"]}], "+", 
            RowBox[{"a", " ", 
             SuperscriptBox["x", 
              RowBox[{"2", " ", "n"}]]}]}], ")"}], "p"]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["x", "2"]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Cot", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560784998515276*^9, 3.560784999264077*^9}, {3.5607850649245925`*^9, 
   3.560785068855799*^9}, {3.560792914704321*^9, 3.5607929250859146`*^9}, {
   3.569268854118556*^9, 3.5692688731085825`*^9}, 3.569269076128867*^9, {
   3.5692691061489086`*^9, 3.5692691080989113`*^9}, {3.573955644900176*^9, 
   3.5739556471309805`*^9}, 3.573956002769805*^9, {3.573956078632738*^9, 
   3.5739561036551824`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cot", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_"}]}]}], ")"}], "^",
       "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"g", "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"g", "*", "x"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"m", "-", 
              RowBox[{"2", "*", "n", "*", "p"}]}], ")"}]}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"c", "+", 
               RowBox[{"b", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"g", "*", "x"}], ")"}], "^", "n"}]}], "+", 
               RowBox[{"a", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"g", "*", "x"}], ")"}], "^", 
                 RowBox[{"(", 
                  RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], 
            "/", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}], ",",
         "x", ",", 
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5692688888286047`*^9, 
   3.569268957468701*^9}, {3.5692691231989326`*^9, 3.5692691306689434`*^9}, 
   3.569269627899639*^9, {3.5692705899035397`*^9, 3.569270596463549*^9}, {
   3.570052897509142*^9, 3.57005305362936*^9}, 3.5739345280197935`*^9, {
   3.5739470285472975`*^9, 3.5739470357673078`*^9}, {3.5739562668314686`*^9, 
   3.5739563068767395`*^9}, {3.573956367217645*^9, 3.5739564520661945`*^9}, {
   3.573956518662711*^9, 3.573956519052712*^9}, {3.573956577584015*^9, 
   3.573956580017619*^9}, {3.7061395517753944`*^9, 3.706139581485436*^9}, {
   3.71545712387442*^9, 3.7154571518740215`*^9}, 3.7154572439162865`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_"}]}]}], ")"}], "^",
       "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", "=", 
       RowBox[{"FreeFactors", "[", 
        RowBox[{
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "g"}], "/", "e"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"g", "*", "x"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"m", "-", 
              RowBox[{"2", "*", "n", "*", "p"}]}], ")"}]}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"c", "+", 
               RowBox[{"b", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"g", "*", "x"}], ")"}], "^", "n"}]}], "+", 
               RowBox[{"a", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"g", "*", "x"}], ")"}], "^", 
                 RowBox[{"(", 
                  RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}], "^", "p"}], 
            "/", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"g", "^", "2"}], "*", 
               RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}], ",",
         "x", ",", 
        RowBox[{
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}], "/", "g"}]}], "]"}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"n2", ",", 
      RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607335338662076`*^9, 
   3.5607335510162315`*^9}, {3.560733582726276*^9, 3.5607335931762905`*^9}, {
   3.560785005925289*^9, 3.5607850136629024`*^9}, {3.560785095063845*^9, 
   3.5607851178242855`*^9}, {3.5607929535945454`*^9, 3.5607929697274685`*^9}, 
   3.56079408820919*^9, 3.560794211229804*^9, 3.5647685551575418`*^9, {
   3.56754682995634*^9, 3.567546856957884*^9}, {3.5692688888286047`*^9, 
   3.569268957468701*^9}, {3.5692691231989326`*^9, 3.5692691306689434`*^9}, 
   3.569269627899639*^9, {3.5692705899035397`*^9, 3.569270596463549*^9}, {
   3.570052897509142*^9, 3.570053099119424*^9}, 3.573934530789797*^9, 
   3.573947040287314*^9, {3.573956292789914*^9, 3.5739563121027484`*^9}, {
   3.573956369370449*^9, 3.5739563971228976`*^9}, {3.5739564494141893`*^9, 
   3.5739564546401987`*^9}, {3.5739564866826553`*^9, 
   3.5739564870414553`*^9}, {3.5739565214083157`*^9, 
   3.5739565217671165`*^9}, {3.5739565826852236`*^9, 3.573956584479227*^9}, {
   3.7061395517853947`*^9, 3.706139581495436*^9}, {3.7154571238794203`*^9, 
   3.7154571518830223`*^9}, 3.7154572439262867`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"B", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.5739249698664117`*^9, 3.573924974546418*^9}, {
   3.573928355941152*^9, 3.573928370741173*^9}, {3.5744100961064553`*^9, 
   3.574410096316456*^9}, 3.5744101868565826`*^9, {3.6120368713441353`*^9, 
   3.612036871644136*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, 
   3.5739249916464424`*^9, {3.573928370751173*^9, 3.5739283707711725`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573923938024967*^9, 3.5739239761350203`*^9}, 
   3.573924293625465*^9, 3.5739249994564533`*^9, {3.573928370801173*^9, 
   3.573928370811173*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", "z"}], "+", 
    RowBox[{"c", " ", 
     SuperscriptBox["z", "2"]}]}], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}], ")"}], "2"], 
    RowBox[{"4", " ", "c"}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"A", "+", 
     RowBox[{"B", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["4", "n"], 
       SuperscriptBox["c", "n"]}]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"2", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739239498049836`*^9, 3.5739239812050276`*^9}, {
   3.573925005986462*^9, 3.5739250082364655`*^9}, {3.5739283708211727`*^9, 
   3.573928370851173*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "n"}], "*", 
       RowBox[{"c", "^", "n"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", "+", 
         RowBox[{"B", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573925105616602*^9, 3.573925123966627*^9}, 
   3.573925179366705*^9, {3.5739252759668403`*^9, 3.573925278476844*^9}, {
   3.573928370861173*^9, 3.5739283920812025`*^9}, 3.5744113541082163`*^9, 
   3.7061395518053946`*^9, 3.715457137219184*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", "^", "n"}], "*", 
       RowBox[{"c", "^", "n"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", "+", 
         RowBox[{"B", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
   3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9, 
   3.573924101995197*^9}, {3.573924203595339*^9, 3.573924214765354*^9}, {
   3.5739251326166396`*^9, 3.5739251802367063`*^9}, {3.573925288296858*^9, 
   3.5739253135068927`*^9}, {3.573928382211189*^9, 3.5739284009512153`*^9}, 
   3.5744113545382175`*^9, 3.7061395518253946`*^9, 3.715457137224184*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9, 
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9}, 
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9, 
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9, 
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9, 
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9, 
   3.5233165475343933`*^9}, {3.5233184331871357`*^9, 
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9, 
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9, 
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9}, 
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9, 
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9, 
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9, 
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9, 
   3.5449122781717815`*^9}, {3.5455187047402697`*^9, 
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9, 
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9, 
   3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
   3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9, 
   3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
   3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9, 
   3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9}, 
   3.573921362431361*^9, {3.573921701611836*^9, 3.5739217122218513`*^9}, {
   3.5739239535049887`*^9, 3.5739239543249903`*^9}, {3.5739240246150885`*^9, 
   3.573924025165089*^9}, 3.573924294525466*^9, 3.573925000656455*^9, {
   3.573928370881173*^9, 3.5739283708911734`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9, 
   3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9, 
   3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}, {
   3.573921737401886*^9, 3.5739217424318933`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"F", "[", "x", "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"F", "[", "x", "]"}], "2"]}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"F", "[", "x", "]"}]}]}], ")"}], 
      RowBox[{"2", "n"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9, 
   3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
   3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9, 
   3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
   3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9, 
   3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
   3.5739210197008815`*^9, 3.5739210197008815`*^9}, {3.573921841272032*^9, 
   3.573921841272032*^9}, {3.573921933662161*^9, 3.573921933662161*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9, 
   3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
   3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9, 
   3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
   3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9, 
   3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
   3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9, 
   3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9}, 
   3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
   3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9, 
   3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
   3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9, 
   3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
   3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9, 
   3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
   3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9, 
   3.5739212417611923`*^9}, {3.5739217345018826`*^9, 3.5739217345018826`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"A", "+", 
     RowBox[{"B", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"2", " ", "c", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
       RowBox[{"2", "n"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"2", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9, 
   3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
   3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9, 
   3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
   3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9, 
   3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
   3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
   3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9, 
   3.573921384701392*^9}, {3.5739218645920644`*^9, 3.573921874242078*^9}, {
   3.573921945892178*^9, 3.573921956742193*^9}, {3.573923955034991*^9, 
   3.573923957784995*^9}, {3.573924027315092*^9, 3.5739240312650976`*^9}, {
   3.5739250166064773`*^9, 3.5739250188064804`*^9}, {3.573928370901173*^9, 
   3.5739283709511733`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "n"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", "+", 
         RowBox[{"B", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, 3.5739251376966467`*^9, 
   3.573925180826707*^9, {3.573925293946865*^9, 3.573925309206887*^9}, {
   3.573928370961173*^9, 3.5739283921112027`*^9}, 3.7061395518453946`*^9, 
   3.715457137229184*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"2", "*", "c", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", "n"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", "+", 
         RowBox[{"B", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "c", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9, 
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9, 
   3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9}, 
   3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9}, 
   3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
   3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9, 
   3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9, 
   3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
   3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9, 
   3.5104559554637995`*^9}, {3.5114602677280397`*^9, 
   3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9}, 
   3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
   3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9, 
   3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
   3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9, 
   3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9}, 
   3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9, 
   3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
   3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
   3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9, 
   3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9, 
   3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
   3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9, 
   3.5739215784616632`*^9, {3.573921971412214*^9, 3.5739219744622183`*^9}, {
   3.5739220203222823`*^9, 3.5739220290022945`*^9}, {3.573922846503439*^9, 
   3.5739228533334484`*^9}, {3.5739240442151155`*^9, 3.573924089555179*^9}, {
   3.5739242497754035`*^9, 3.5739242541354094`*^9}, {3.573924786546155*^9, 
   3.5739248039061794`*^9}, {3.573925139296649*^9, 3.573925181366708*^9}, {
   3.5739252962268686`*^9, 3.573925301846876*^9}, {3.573928382231189*^9, 
   3.5739284009712152`*^9}, 3.706139551855395*^9, 3.7154571372351847`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9, 
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9}, 
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9, 
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9}, 
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9, 
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9, 
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9}, 
   3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
   3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9, 
   3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
   3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9, 
   3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, {
   3.573924373625577*^9, 3.5739243796555853`*^9}, 3.5739249928164434`*^9, {
   3.5739283710111732`*^9, 3.573928371031173*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.5675372580626526`*^9, 3.567537266402664*^9}, {3.5675391495153008`*^9, 
   3.5675391659953237`*^9}, {3.567539926186388*^9, 3.5675399849664702`*^9}, {
   3.5675410836080084`*^9, 3.567541102798035*^9}, 3.5675446624460783`*^9, 
   3.5675447947176437`*^9, 3.567545747420135*^9, 3.5675457853163023`*^9, {
   3.5687562916876264`*^9, 3.568756292197627*^9}, 3.5687568002883387`*^9, {
   3.568830196482278*^9, 3.568830196482278*^9}, {3.5688302763232183`*^9, 
   3.5688302763232183`*^9}, {3.568830559775716*^9, 3.568830569884534*^9}, {
   3.568835923533137*^9, 3.5688359239855375`*^9}, 3.568851766791256*^9, {
   3.5688522136318817`*^9, 3.5688522151618834`*^9}, {3.568852249491932*^9, 
   3.5688522569019423`*^9}, {3.5688536541438985`*^9, 3.568853664083912*^9}, {
   3.569116373579444*^9, 3.569116381149454*^9}, {3.5691165114096365`*^9, 
   3.569116545799685*^9}, {3.569117017780346*^9, 3.5691170188203473`*^9}, {
   3.569117128400501*^9, 3.569117128400501*^9}, 3.5691173972908773`*^9, 
   3.5691183476022077`*^9, 3.56911842795232*^9, {3.573924382395589*^9, 
   3.5739244082656255`*^9}, {3.573924448135681*^9, 3.573924450045684*^9}, {
   3.573925027826493*^9, 3.5739250339465017`*^9}, {3.573928371051173*^9, 
   3.573928371071173*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}, 3.5675391832053475`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"q", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}]]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"A", "+", 
     RowBox[{"B", " ", "z"}]}], 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "z"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["z", "2"]}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"B", "+", 
       FractionBox[
        RowBox[{
         RowBox[{"b", " ", "B"}], "-", 
         RowBox[{"2", " ", "A", " ", "c"}]}], "q"]}], ")"}], 
     FractionBox["1", 
      RowBox[{"b", "+", "q", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}]]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"B", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"b", " ", "B"}], "-", 
         RowBox[{"2", " ", "A", " ", "c"}]}], "q"]}], ")"}], 
     FractionBox["1", 
      RowBox[{"b", "-", "q", "+", 
       RowBox[{"2", " ", "c", " ", "z"}]}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607367216156707`*^9, 3.5607367531357145`*^9}, {3.5607961942288504`*^9, 
   3.560796244882139*^9}, {3.5607962791242*^9, 3.560796292618223*^9}, {
   3.567539221095401*^9, 3.567539221095401*^9}, 3.567539318265537*^9, {
   3.5675394229656835`*^9, 3.5675394229656835`*^9}, {3.567539531605836*^9, 
   3.567539531605836*^9}, {3.5675395898459167`*^9, 3.567539592735921*^9}, {
   3.568829157672453*^9, 3.5688291779836884`*^9}, {3.5688292084505424`*^9, 
   3.5688292742202578`*^9}, {3.568829315778731*^9, 3.568829315778731*^9}, {
   3.5688300950821*^9, 3.5688300950821*^9}, {3.5688306040641937`*^9, 
   3.5688306290242376`*^9}, {3.568908677836665*^9, 3.568908689536682*^9}, {
   3.5689092163474193`*^9, 3.568909233117443*^9}, {3.5689093150675573`*^9, 
   3.5689093287075768`*^9}, {3.56911659945976*^9, 3.5691167082499123`*^9}, {
   3.573925728657474*^9, 3.5739257453874974`*^9}, {3.57392577597754*^9, 
   3.5739257846975527`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]],
 ", let  ",
 Cell[BoxData[
  RowBox[{"q", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}]]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, {
   3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 
   3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, {
   3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 
   3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, {
   3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 
   3.5157038673789444`*^9}, {3.5675373789228215`*^9, 
   3.5675373789228215`*^9}, {3.5675392916654997`*^9, 
   3.5675393060655193`*^9}, {3.5675396164959545`*^9, 
   3.5675396658360233`*^9}, {3.5675400329765377`*^9, 
   3.5675400375665436`*^9}, {3.568829362750413*^9, 3.568829362750413*^9}, {
   3.5688302900356417`*^9, 3.5688302900356417`*^9}, {3.568830606123397*^9, 
   3.5688306063261976`*^9}, {3.5688523274520407`*^9, 
   3.5688523274520407`*^9}, {3.5688536685739183`*^9, 
   3.5688536685739183`*^9}, {3.56911654923969*^9, 3.5691165496396904`*^9}, {
   3.5691168593201237`*^9, 3.569116870040139*^9}, {3.5691170946704535`*^9, 
   3.5691171142104807`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"A", "+", 
      RowBox[{"B", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"(", 
       RowBox[{"B", "+", 
        FractionBox[
         RowBox[{
          RowBox[{"b", " ", "B"}], "-", 
          RowBox[{"2", " ", "A", " ", "c"}]}], "q"]}], ")"}]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"b", "+", "q", "+", 
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"B", "-", 
     FractionBox[
      RowBox[{
       RowBox[{"b", " ", "B"}], "-", 
       RowBox[{"2", " ", "A", " ", "c"}]}], "q"]}], ")"}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"b", "-", "q", "+", 
       RowBox[{"2", " ", "c", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560736531125404*^9, 3.5607366248555355`*^9}, {3.5607963589183397`*^9, 
   3.560796364362749*^9}, 3.567537205722579*^9, {3.567539747796138*^9, 
   3.5675398366662626`*^9}, 3.5688291122451735`*^9, {3.5688294004088793`*^9, 
   3.5688294310473332`*^9}, {3.568830110323326*^9, 3.568830135720171*^9}, 
   3.5688304325106926`*^9, {3.568830656511486*^9, 3.56883065883589*^9}, {
   3.5688359247655387`*^9, 3.568835926434742*^9}, {3.568908816206859*^9, 
   3.5689088316268806`*^9}, {3.568909374917641*^9, 3.5689093900576625`*^9}, {
   3.5691167852200203`*^9, 3.569116831310085*^9}, {3.569117019350348*^9, 
   3.5691170218403516`*^9}, {3.5739256400373497`*^9, 
   3.5739257162874565`*^9}, {3.5739258277676125`*^9, 
   3.5739258299076157`*^9}, {3.5739283710811734`*^9, 3.5739283711111736`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", "=", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-", 
          RowBox[{"4", "*", "a", "*", "c"}]}], ",", "2"}], "]"}]}], "}"}], 
     ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"B", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "B"}], "-", 
            RowBox[{"2", "*", "A", "*", "c"}]}], ")"}], "/", "q"}]}], ")"}], 
       "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"b", "+", "q", "+", 
             RowBox[{"2", "*", "c", "*", 
              RowBox[{"Tan", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], 
         ",", "x"}], "]"}]}], " ", "+", " ", "\n", "  ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"B", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "B"}], "-", 
            RowBox[{"2", "*", "A", "*", "c"}]}], ")"}], "/", "q"}]}], ")"}], 
       "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"b", "-", "q", "+", 
             RowBox[{"2", "*", "c", "*", 
              RowBox[{"Tan", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], 
         ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 3.573924502825758*^9}, {
   3.573925145266657*^9, 3.573925146456659*^9}, 3.5739251819167085`*^9, 
   3.5739259325877595`*^9, {3.5739283711211734`*^9, 3.5739283921312027`*^9}, {
   3.6102217632661724`*^9, 3.610221776936191*^9}, 3.706139581555436*^9, 
   3.715457151889023*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", "=", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-", 
          RowBox[{"4", "*", "a", "*", "c"}]}], ",", "2"}], "]"}]}], "}"}], 
     ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"B", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "B"}], "-", 
            RowBox[{"2", "*", "A", "*", "c"}]}], ")"}], "/", "q"}]}], ")"}], 
       "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"b", "+", "q", "+", 
             RowBox[{"2", "*", "c", "*", 
              RowBox[{"Cot", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], 
         ",", "x"}], "]"}]}], " ", "+", " ", "\n", "  ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"B", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "B"}], "-", 
            RowBox[{"2", "*", "A", "*", "c"}]}], ")"}], "/", "q"}]}], ")"}], 
       "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"b", "-", "q", "+", 
             RowBox[{"2", "*", "c", "*", 
              RowBox[{"Cot", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], 
         ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 
   3.5739245325557995`*^9}, {3.5739251493466625`*^9, 
   3.5739251825867095`*^9}, {3.573925941617772*^9, 3.573925946717779*^9}, {
   3.5739283822711887`*^9, 3.573928401001215*^9}, {3.610221788156207*^9, 
   3.6102217970762196`*^9}, 3.7061395815654364`*^9, 3.715457151894023*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"B", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.5675372580626526`*^9, 3.567537266402664*^9}, {3.5675391495153008`*^9, 
   3.5675391659953237`*^9}, {3.567539926186388*^9, 3.5675399849664702`*^9}, {
   3.5675410836080084`*^9, 3.567541102798035*^9}, 3.5675446624460783`*^9, 
   3.5675447947176437`*^9, 3.567545747420135*^9, 3.5675457853163023`*^9, {
   3.5687562916876264`*^9, 3.568756292197627*^9}, 3.5687568002883387`*^9, {
   3.568830196482278*^9, 3.568830196482278*^9}, {3.5688302763232183`*^9, 
   3.5688302763232183`*^9}, {3.568830559775716*^9, 3.568830569884534*^9}, {
   3.568835923533137*^9, 3.5688359239855375`*^9}, 3.568851766791256*^9, {
   3.5688522136318817`*^9, 3.5688522151618834`*^9}, {3.568852249491932*^9, 
   3.5688522569019423`*^9}, {3.5688536541438985`*^9, 3.568853664083912*^9}, {
   3.569116373579444*^9, 3.569116381149454*^9}, {3.5691165114096365`*^9, 
   3.569116545799685*^9}, {3.569117017780346*^9, 3.5691170188203473`*^9}, {
   3.569117128400501*^9, 3.569117128400501*^9}, 3.5691173972908773`*^9, 
   3.5691183476022077`*^9, 3.56911842795232*^9, {3.573924382395589*^9, 
   3.5739244082656255`*^9}, {3.573924448135681*^9, 3.573924450045684*^9}, {
   3.573925027826493*^9, 3.5739250339465017`*^9}, {3.573928048880722*^9, 
   3.5739280491107225`*^9}, {3.573928112230811*^9, 3.573928134950843*^9}, 
   3.573928172120895*^9, {3.5739283711411734`*^9, 3.5739283711511736`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}, 3.5675391832053475`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}], " ", "\[And]",
    " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, {
   3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 
   3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, {
   3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 
   3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, {
   3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 
   3.5157038673789444`*^9}, {3.5675373789228215`*^9, 
   3.5675373789228215`*^9}, {3.5675392916654997`*^9, 
   3.5675393060655193`*^9}, {3.5675396164959545`*^9, 
   3.5675396658360233`*^9}, {3.5675400329765377`*^9, 
   3.5675400375665436`*^9}, {3.568829362750413*^9, 3.568829362750413*^9}, {
   3.5688302900356417`*^9, 3.5688302900356417`*^9}, {3.568830606123397*^9, 
   3.5688306063261976`*^9}, {3.5688523274520407`*^9, 
   3.5688523274520407`*^9}, {3.5688536685739183`*^9, 
   3.5688536685739183`*^9}, {3.56911654923969*^9, 3.5691165496396904`*^9}, {
   3.5691168593201237`*^9, 3.569116870040139*^9}, {3.5691170946704535`*^9, 
   3.5691171142104807`*^9}, {3.5739281485908623`*^9, 3.5739281525708675`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"A", "+", 
     RowBox[{"B", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"ExpandTrig", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"A", "+", 
            RowBox[{"B", " ", 
             RowBox[{"Tan", "[", 
              RowBox[{"d", "+", 
               RowBox[{"e", " ", "x"}]}], "]"}]}]}], ")"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"Tan", "[", 
               RowBox[{"d", "+", 
                RowBox[{"e", " ", "x"}]}], "]"}]}], "+", 
             RowBox[{"c", " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", 
                RowBox[{"d", "+", 
                 RowBox[{"e", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"]}], 
         ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, 
   3.560733219135767*^9, {3.5607334533660946`*^9, 3.560733479916132*^9}, {
   3.560736531125404*^9, 3.5607366248555355`*^9}, {3.5607963589183397`*^9, 
   3.560796364362749*^9}, 3.567537205722579*^9, {3.567539747796138*^9, 
   3.5675398366662626`*^9}, 3.5688291122451735`*^9, {3.5688294004088793`*^9, 
   3.5688294310473332`*^9}, {3.568830110323326*^9, 3.568830135720171*^9}, 
   3.5688304325106926`*^9, {3.568830656511486*^9, 3.56883065883589*^9}, {
   3.5688359247655387`*^9, 3.568835926434742*^9}, {3.568908816206859*^9, 
   3.5689088316268806`*^9}, {3.568909374917641*^9, 3.5689093900576625`*^9}, {
   3.5691167852200203`*^9, 3.569116831310085*^9}, {3.569117019350348*^9, 
   3.5691170218403516`*^9}, {3.5739256400373497`*^9, 
   3.5739257162874565`*^9}, {3.5739258277676125`*^9, 
   3.5739258299076157`*^9}, {3.5739280604107385`*^9, 3.573928096390789*^9}, {
   3.573928371161174*^9, 3.5739283711911736`*^9}, 3.574410700447302*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"tan", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrig", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"B", "*", 
           RowBox[{"tan", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"tan", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}]}], "+", 
           RowBox[{"c", "*", 
            RowBox[{
             RowBox[{"tan", "[", 
              RowBox[{"d", "+", 
               RowBox[{"e", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
         "n"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 3.573924502825758*^9}, {
   3.573925145266657*^9, 3.573925146456659*^9}, 3.5739251819167085`*^9, 
   3.5739259325877595`*^9, {3.5739281828309097`*^9, 3.5739281889309187`*^9}, {
   3.573928219470961*^9, 3.5739282530110083`*^9}, {3.573928371201174*^9, 
   3.573928392161203*^9}, {3.574410702357304*^9, 3.5744107219073315`*^9}, 
   3.5744113552582183`*^9, 3.7061395815854363`*^9, 3.715457151899023*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A_", "+", 
       RowBox[{"B_.", "*", 
        RowBox[{"cot", "[", 
         RowBox[{"d_.", "+", 
          RowBox[{"e_.", "*", "x_"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"d_.", "+", 
           RowBox[{"e_.", "*", "x_"}]}], "]"}]}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{
          RowBox[{"cot", "[", 
           RowBox[{"d_.", "+", 
            RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
      "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrig", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"B", "*", 
           RowBox[{"cot", "[", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], "]"}]}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"cot", "[", 
             RowBox[{"d", "+", 
              RowBox[{"e", "*", "x"}]}], "]"}]}], "+", 
           RowBox[{"c", "*", 
            RowBox[{
             RowBox[{"cot", "[", 
              RowBox[{"d", "+", 
               RowBox[{"e", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 
         "n"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "A", ",", "B"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], "-", 
       RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.567539015545113*^9, 3.5675390935852222`*^9}, {
   3.5675396930460615`*^9, 3.567539708596083*^9}, {3.5675400125865088`*^9, 
   3.5675400216265216`*^9}, {3.567540300556912*^9, 3.567540301486913*^9}, 
   3.5675407810975847`*^9, {3.567541142638091*^9, 3.5675411491281*^9}, {
   3.5675415155086126`*^9, 3.5675415244086256`*^9}, {3.5688301717094345`*^9, 
   3.5688301796342483`*^9}, {3.568830218306716*^9, 3.5688302321283407`*^9}, 
   3.5688302929372473`*^9, {3.568830382122604*^9, 3.568830395819428*^9}, {
   3.5688304504507236`*^9, 3.5688304816195784`*^9}, {3.5688306654035015`*^9, 
   3.5688306776339226`*^9}, {3.5688346520373034`*^9, 3.568834680819354*^9}, {
   3.5688347141098127`*^9, 3.5688347152798147`*^9}, {3.5688347727971153`*^9, 
   3.5688349549742355`*^9}, {3.5688352754923983`*^9, 3.568835296770836*^9}, {
   3.5688353354433036`*^9, 3.5688353385477095`*^9}, {3.5688354303694706`*^9, 
   3.568835454643113*^9}, {3.568838143485746*^9, 3.5688381641657753`*^9}, {
   3.568852283041979*^9, 3.568852306612012*^9}, {3.5688523394420576`*^9, 
   3.5688523400420585`*^9}, {3.568853675363928*^9, 3.5688536859739428`*^9}, {
   3.5689039246600113`*^9, 3.5689039365200276`*^9}, {3.5689094653677683`*^9, 
   3.5689094746877813`*^9}, {3.568909506717826*^9, 3.56890950968783*^9}, {
   3.568909580357929*^9, 3.5689095867979383`*^9}, 3.568913485295497*^9, {
   3.569116889120166*^9, 3.569116950820252*^9}, {3.569117032220366*^9, 
   3.569117064340411*^9}, {3.5691171496505303`*^9, 3.569117150620532*^9}, {
   3.569117214350621*^9, 3.5691172967107363`*^9}, {3.5691173329807873`*^9, 
   3.5691173395207963`*^9}, {3.569117640751218*^9, 3.5691176859012814`*^9}, {
   3.569118109411874*^9, 3.569118110791876*^9}, {3.5739244083556256`*^9, 
   3.5739244298756557`*^9}, {3.5739244833057303`*^9, 
   3.5739245325557995`*^9}, {3.5739251493466625`*^9, 
   3.5739251825867095`*^9}, {3.573925941617772*^9, 3.573925946717779*^9}, {
   3.573928227710973*^9, 3.5739282596710176`*^9}, {3.573928382291189*^9, 
   3.5739284010212154`*^9}, {3.574410703707306*^9, 3.574410729257342*^9}, 
   3.5744113556282187`*^9, 3.706139581595436*^9, 3.7154571519040236`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "trig", "(", "d", "+", "e", " ", "x", ")", "^", "m", " ", 
      "(", "a", "+", "b", " ", "tan", "(", "d", "+", "e", " ", "x", ")", "^", 
      "n", "+", "c", " ", "tan", "(", "d", "+", "e", " ", "x", ")", "^", "(", 
      "2", " ", "n", ")", ")", "^", "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6479, 112, 46, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7049, 136, 4563, 75, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[11637, 215, 4907, 86, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[16569, 305, 4605, 85, 53, "Subsubtitle"],
Cell[21177, 392, 610, 8, 35, "Subsubsection"],
Cell[21790, 402, 1427, 35, 43, "Subsubsection"],
Cell[23220, 439, 2659, 42, 35, "Subsubsection"],
Cell[25882, 483, 3002, 63, 60, "Subsubtitle"],
Cell[28887, 548, 771, 11, 35, "Subsubsection"],
Cell[29661, 561, 4249, 88, 104, "Code"],
Cell[33913, 651, 4201, 87, 114, "Code"],
Cell[38117, 740, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[38243, 747, 4725, 87, 53, "Subsubtitle"],
Cell[42971, 836, 667, 9, 35, "Subsubsection"],
Cell[43641, 847, 1808, 44, 47, "Subsubsection"],
Cell[45452, 893, 2716, 43, 35, "Subsubsection"],
Cell[48171, 938, 3938, 87, 74, "Subsubtitle"],
Cell[52112, 1027, 771, 11, 35, "Subsubsection"],
Cell[52886, 1040, 5097, 112, 104, "Code"],
Cell[57986, 1154, 5154, 113, 114, "Code"],
Cell[63143, 1269, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[63281, 1277, 4961, 87, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[68267, 1368, 5652, 96, 63, "Subsubtitle"],
Cell[73922, 1466, 351, 5, 35, "Subsubsection"],
Cell[74276, 1473, 2186, 51, 49, "Subsubsection"],
Cell[76465, 1526, 2253, 43, 39, "Subsubsection"],
Cell[78721, 1571, 3456, 74, 63, "Subsubtitle"],
Cell[82180, 1647, 771, 11, 35, "Subsubsection"],
Cell[82954, 1660, 4458, 99, 154, "Code"],
Cell[87415, 1761, 4416, 99, 164, "Code"],
Cell[91834, 1862, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[91984, 1871, 5335, 90, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[97344, 1965, 4985, 91, 53, "Subsubtitle"],
Cell[102332, 2058, 335, 5, 35, "Subsubsection"],
Cell[102670, 2065, 1108, 23, 44, "Subsubsection"],
Cell[103781, 2090, 2447, 63, 53, "Subsubsection"],
Cell[106231, 2155, 2196, 35, 35, "Subsubsection"],
Cell[108430, 2192, 3360, 79, 80, "Subsubtitle"],
Cell[111793, 2273, 771, 11, 35, "Subsubsection"],
Cell[112567, 2286, 4046, 96, 104, "Code"],
Cell[116616, 2384, 4067, 97, 114, "Code"],
Cell[120686, 2483, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[120812, 2490, 4872, 89, 53, "Subsubtitle"],
Cell[125687, 2581, 305, 4, 35, "Subsubsection"],
Cell[125995, 2587, 1153, 24, 44, "Subsubsection"],
Cell[127151, 2613, 2493, 68, 53, "Subsubsection"],
Cell[129647, 2683, 1497, 29, 39, "Subsubsection"],
Cell[131147, 2714, 3334, 82, 81, "Subsubtitle"],
Cell[134484, 2798, 771, 11, 35, "Subsubsection"],
Cell[135258, 2811, 5739, 137, 129, "Code"],
Cell[141000, 2950, 5580, 134, 139, "Code"],
Cell[146583, 3086, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[146721, 3094, 5174, 86, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[151920, 3184, 4786, 86, 53, "Subsubtitle"],
Cell[156709, 3272, 335, 5, 35, "Subsubsection"],
Cell[157047, 3279, 947, 20, 40, "Subsubsection"],
Cell[157997, 3301, 2401, 62, 56, "Subsubsection"],
Cell[160401, 3365, 2196, 35, 35, "Subsubsection"],
Cell[162600, 3402, 3218, 75, 80, "Subsubtitle"],
Cell[165821, 3479, 771, 11, 35, "Subsubsection"],
Cell[166595, 3492, 3983, 97, 104, "Code"],
Cell[170581, 3591, 3981, 97, 114, "Code"],
Cell[174565, 3690, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[174691, 3697, 4818, 89, 53, "Subsubtitle"],
Cell[179512, 3788, 305, 4, 35, "Subsubsection"],
Cell[179820, 3794, 1099, 23, 44, "Subsubsection"],
Cell[180922, 3819, 2374, 65, 58, "Subsubsection"],
Cell[183299, 3886, 1497, 29, 39, "Subsubsection"],
Cell[184799, 3917, 3089, 77, 59, "Subsubtitle"],
Cell[187891, 3996, 771, 11, 35, "Subsubsection"],
Cell[188665, 4009, 5058, 121, 129, "Code"],
Cell[193726, 4132, 5085, 122, 139, "Code"],
Cell[198814, 4256, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[198952, 4264, 4699, 79, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[203676, 4347, 5028, 90, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[208729, 4441, 4746, 89, 53, "Subsubtitle"],
Cell[213478, 4532, 610, 8, 35, "Subsubsection"],
Cell[214091, 4542, 1427, 35, 43, "Subsubsection"],
Cell[215521, 4579, 2663, 42, 35, "Subsubsection"],
Cell[218187, 4623, 3316, 72, 60, "Subsubtitle"],
Cell[221506, 4697, 771, 11, 35, "Subsubsection"],
Cell[222280, 4710, 4734, 101, 104, "Code"],
Cell[227017, 4813, 4780, 102, 114, "Code"],
Cell[231800, 4917, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[231926, 4924, 4854, 91, 53, "Subsubtitle"],
Cell[236783, 5017, 667, 9, 35, "Subsubsection"],
Cell[237453, 5028, 1806, 44, 47, "Subsubsection"],
Cell[239262, 5074, 2716, 43, 35, "Subsubsection"],
Cell[241981, 5119, 4157, 95, 74, "Subsubtitle"],
Cell[246141, 5216, 771, 11, 35, "Subsubsection"],
Cell[246915, 5229, 5528, 124, 104, "Code"],
Cell[252446, 5355, 5587, 125, 114, "Code"],
Cell[258036, 5482, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[258174, 5490, 5085, 94, 53, "Subsubtitle"],
Cell[263262, 5586, 335, 5, 35, "Subsubsection"],
Cell[263600, 5593, 1718, 47, 39, "Subsubsection"],
Cell[265321, 5642, 2673, 42, 26, "Subsubsection"],
Cell[267997, 5686, 3196, 75, 67, "Subsubtitle"],
Cell[271196, 5763, 771, 11, 35, "Subsubsection"],
Cell[271970, 5776, 3674, 91, 104, "Code"],
Cell[275647, 5869, 3675, 92, 114, "Code"],
Cell[279325, 5963, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[279463, 5971, 4751, 80, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[284239, 6055, 5056, 91, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[289320, 6150, 4772, 90, 53, "Subsubtitle"],
Cell[294095, 6242, 610, 8, 35, "Subsubsection"],
Cell[294708, 6252, 1427, 35, 43, "Subsubsection"],
Cell[296138, 6289, 2663, 42, 35, "Subsubsection"],
Cell[298804, 6333, 3366, 73, 60, "Subsubtitle"],
Cell[302173, 6408, 771, 11, 35, "Subsubsection"],
Cell[302947, 6421, 4763, 101, 104, "Code"],
Cell[307713, 6524, 4808, 102, 114, "Code"],
Cell[312524, 6628, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[312650, 6635, 4876, 91, 53, "Subsubtitle"],
Cell[317529, 6728, 667, 9, 35, "Subsubsection"],
Cell[318199, 6739, 1806, 44, 47, "Subsubsection"],
Cell[320008, 6785, 2716, 43, 35, "Subsubsection"],
Cell[322727, 6830, 4207, 95, 74, "Subsubtitle"],
Cell[326937, 6927, 771, 11, 35, "Subsubsection"],
Cell[327711, 6940, 5586, 125, 104, "Code"],
Cell[333300, 7067, 5640, 126, 114, "Code"],
Cell[338943, 7195, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[339081, 7203, 5084, 94, 53, "Subsubtitle"],
Cell[344168, 7299, 335, 5, 35, "Subsubsection"],
Cell[344506, 7306, 864, 18, 40, "Subsubsection"],
Cell[345373, 7326, 1763, 46, 53, "Subsubsection"],
Cell[347139, 7374, 2743, 44, 39, "Subsubsection"],
Cell[349885, 7420, 3089, 72, 67, "Subsubtitle"],
Cell[352977, 7494, 771, 11, 35, "Subsubsection"],
Cell[353751, 7507, 4343, 109, 129, "Code"],
Cell[358097, 7618, 4452, 112, 139, "Code"],
Cell[362552, 7732, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[362690, 7740, 4682, 79, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[367397, 7823, 4958, 89, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[372380, 7916, 4622, 88, 53, "Subsubtitle"],
Cell[377005, 8006, 610, 8, 35, "Subsubsection"],
Cell[377618, 8016, 1427, 35, 43, "Subsubsection"],
Cell[379048, 8053, 2613, 42, 35, "Subsubsection"],
Cell[381664, 8097, 3220, 72, 60, "Subsubtitle"],
Cell[384887, 8171, 771, 11, 35, "Subsubsection"],
Cell[385661, 8184, 4391, 96, 104, "Code"],
Cell[390055, 8282, 4419, 96, 114, "Code"],
Cell[394477, 8380, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[394603, 8387, 4727, 89, 53, "Subsubtitle"],
Cell[399333, 8478, 667, 9, 35, "Subsubsection"],
Cell[400003, 8489, 1754, 43, 47, "Subsubsection"],
Cell[401760, 8534, 2666, 42, 35, "Subsubsection"],
Cell[404429, 8578, 3935, 91, 69, "Subsubtitle"],
Cell[408367, 8671, 771, 11, 35, "Subsubsection"],
Cell[409141, 8684, 5035, 116, 104, "Code"],
Cell[414179, 8802, 5085, 116, 114, "Code"],
Cell[419267, 8920, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[419405, 8928, 5013, 90, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[424443, 9022, 5718, 99, 63, "Subsubtitle"],
Cell[430164, 9123, 351, 5, 35, "Subsubsection"],
Cell[430518, 9130, 2482, 61, 49, "Subsubsection"],
Cell[433003, 9193, 2253, 43, 39, "Subsubsection"],
Cell[435259, 9238, 3611, 82, 63, "Subsubtitle"],
Cell[438873, 9322, 771, 11, 35, "Subsubsection"],
Cell[439647, 9335, 4828, 115, 154, "Code"],
Cell[444478, 9452, 4832, 115, 164, "Code"],
Cell[449313, 9569, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[449439, 9576, 6026, 105, 53, "Subsubtitle"],
Cell[455468, 9683, 351, 5, 35, "Subsubsection"],
Cell[455822, 9690, 2236, 38, 35, "Subsubsection"],
Cell[458061, 9730, 3613, 78, 53, "Subsubtitle"],
Cell[461677, 9810, 771, 11, 35, "Subsubsection"],
Cell[462451, 9823, 4206, 91, 104, "Code"],
Cell[466660, 9916, 4160, 91, 114, "Code"],
Cell[470823, 10009, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)